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第 一 章 ”中华 学 习 机 


中 华 学习 机 是 国内 许多 单位 联合 设计 研制 的 一 种 灵巧 型 
的 微型 计算 机 ， 它 的 主机 只要 配 上 普通 的 家 用 黑白 或 彩色 电 
视 机 就 可 以 使 用 ， 因 此 适用 于 家 庭 和 中 小 学 ， 作 为 广大 青 少 
年 学 生 学 习 计算 机 技术 和 实现 计算 机 辅助 教育 的 工具 。 

这 种 计算 机 的 结构 很 灵活 ， 可 以 根据 不 同 的 需要 ， 配 接 
上 黑白 或 彩色 的 监 示 器 、 磁 盘 驱 动 器 、 打 印 机 等 ， 还 能 使 用 
汉字 。 中 华 学 习 机 价格 低廉 ， 但 它们 的 功能 却 与 苹果 - Te 型 
计算 机 相当 ， 甚 至 还 有 所 增强 。 苹 果 - Te 型 计算 机 上 的 各 
种 软件 在 中 华 学 习 机 上 都 能 运行 。 中 华 学 习 机 具有 一 种 叫 
“只 读 存储 器 ”的 装置 ， 英 文 缩写 符号 是 “ROM”。 在 ROM 
上 预先 存储 了 监控 程序 、BASIC 语 言 和 LOGO 语 言 的 解释 程 
序 ， 这 叫做 把 软件 程序 “固化 ”起 来 。 因 此 ， 只 要 一 开机 ， 
就 能 很 方便 地 从 ROM 中 将 这 些 软件 调 入 内 存 ， 不 必 通 过 磁 
盘 或 录音 机 禽 带 。 由 于 ROM 是 “只 读 ” 的 ， 它 上 面 存储 的 
软件 可 以 读 出， 但 不 能 写 上 新 的 信息 ， 因 此 这 些 软件 是 不 会 
被 破坏 的 ， 也 不 会 象 普 通 内 存储 器 的 信息 一 关 机 就 全 部 丧 
失 。 在 中 华 学 习 机 上 学 习 LOGO 语 言 是 再 方便 不 过 的 。 

中 华 学 习 机 的 主机 外 形 见 图 1-1， 上 面 是 正面 图 ， 下 面 
是 背 视图 ， 还 标明 了 各 搬 槽 和 插口 的 位 置 ， 它 们 是 中 华 学习 
机 用 来 配 接 监 示 器 、 电 视 机 、 盒 式 录音 机 、 磁 盘 驱动 器 、 游 
戏 机 和 打印 机 等 设备 的 装置 。 


ee 























工 .电源 开关 2. 扩充 权 口 ”3. 电 源 线 4 .电视 机 揪 吕 5. 监 
示 器 插口 6. 磁 盘 驱 动 器 插座 了. 念 式 录音 机 插口 ”8. 游 戏 
机 插座 ”9. 键 盘 





加 1-1 中 华 学 习 机 主机 
主机 外 壳 前 方 的 倾斜 面 就 是 中 华 学 习 机 的 键盘 ， 上 面 共 
有 69 个 键 ， 其 中 包含 了 标准 打字 机 的 字母 键 和 符号 键 ， 它 们 
的 排列 位 置 也 与 标准 打字 机 相同 ， 见 图 1-2。 
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除了 标准 打字 机 的 字母 键 和 符号 键 以 外 ， 键 盘 上 还 有 一 
些 特 殊 键 ， 它 们 各 有 相应 的 专门 用 途 。 

左下 角 有 一 个 “Caps Lock2” 键 ， 意 思 是 大 写 锁 定 键 。 
按 下 这 个 键 后 ， 再 按 26 个 英文 字母 键 中 的 任何 一 个 都 是 大 窟 
字母 ， 再 按 一 次 这 个 键 使 它 失 起， 以 后 再 按 下 的 字母 键 全 是 - 
小 写 了 。 

左下 角 和 右 下 角 有 两 个 “Shift” 键 ， 在 打字 机 键盘 的 
相同 位 置 上 也 有 这 两 个 键 ， 叫 做 换 档 键 ， 功 能 是 一 样 的 。 按 ， 
下 这 两 个 >hift 键 中 的 任何 一 个 的 同时 ， 再 按 另 一 个 键 就 会 
产生 该 键 的 上 档 键 码 ， 否 则 产生 的 是 下 档 键 码 。 左 右 两 角 都 ， 
设 一 个 Shift 键 的 目的 是 为 了 便于 双手 同时 操作 。 

左上 角 有 一 个 “ESC2” 键 ， 按 下 ESC 后 再 按 其 他 键 就 能 : 
产生 一 个 新 的 键 码 。 

左 侧 Shift 键 的 上 方 是 “Ctrl” 键 。 它 与 ESC 键 很 相似 ， 
Ctrl 键 和 其 他 键 联合 使 用 以 产生 控制 键 码 。 但 是 Ctrl 键 和 另 
一 个 键 必 须 同 时 按 下 ， 一 起 放 开 。 

在 键盘 的 右上 角 ， 与 ESC 键 遥 遥 相 对 的 地 方 有 一 个 
“Reset” 键 ， 称 为 系统 复位 键 ， 按 下 后 会 使 计算 机 的 状态 
复原 ， 即 恢复 为 初始 状态 。 

紧 靠 在 Reset 键 下 面 的 那个 较 大 的 键 叫 做 “Return” 链 ， 
相当 于 打字 机 上 的 回 车 键 。 计 算 机 语言 中 的 一 个 语句 ， 或 者 
一 条 命令 结束 时 ， 或 者 当 一 且 ; 稀 应 换 一 行 时 ， 需 要 按 一 次 
Return 键 。 

键盘 右面 有 分 离开 来 的 四 个 三 角形 的 键 ， 它 们 旦 十 字 排 
列 ， 上 面 标 有 、 放 、 和 全 、YV， 称 为 光标 键 。 这 四 个 键 可 以 
将 屏幕 上 的 光标 沿 上 、 下 、 左 、 右 四 个 方向 移动 ， 移 到 需要 
的 位 置 上 ， 同 时 还 能 认定 或 删除 屏幕 上 显示 的 字符 。 
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键盘 是 中 华 学 习 机 上 最 基本 、 最 灵活 的 输入 设备 ， 我 们 
岂 计 算 机 的 联系 ， 我 们 对 计算 机 的 控制 ， 绝 大 部 分 是 通过 链 
盘 进 行 的 。 

前 面 说 过 ， 计 算 机 和 打字 机 上 的 标准 字符 键 位 置 完全 相 
同 。 因 此 按键 的 指法 基本 上 是 一 样 的 ， 所 不 同 的 是 计算 机 键 
盘 有 重复 功能 ， 就 是 按 下 -一 个 键 超过 一 定 的 时 间 就 会 连续 地 
自动 重复 发 出 这 个 键 的 码 ， 不 象 打字 机 那样 按 下 一 个 键 只 能 
打上 一 个 字符 ， 要 重复 就 必须 再 次 按 这 个 键 。 这 种 重复 功能 
是 必须 注意 的 ， 需 要 重复 的 场合 毕竟 不 多 ， 在 通常 不 需要 重 
复 的 多 数 情况 下 ， 按 键 应 该 短促 有 力 ， 不 要 拖泥带水 ， 防 上 
键 码 意外 地 重复 发 出 。 

中 华 学 习 机 在 使 用 前 必须 先 装配 连接 好 各 附属 设备 。 显 
示 器 当然 最 好 用 专门 的 监 示 器 ， 但 如 果 条 件 不 具备 ， 特 别 是 
家 庭 使 用 时 也 可 用 普通 电视 机 代替 。 但 是 ， 使 用 彩色 的 监 示 
器 或 电视 机 时 ， 必 须 选 择 我 国 统一 标准 的 PAL-D 制式 ， 否 
则 不 能 显示 彩色 的 字符 或 图 形 。 前 面 说 过 ， 中 华 学 习 机 已 把 
监控 程序 和 计算 机 语言 固化 在 ROM 里 ， 因 此 仅 是 为 学 习 
ELOGO 语 言 的 目的 ， 盒 式 录音 机 和 磁盘 驱动 器 是 完全 可 以 不 
用 的 。 学 习 LOGO 语 言 ， 基 本 上 都 可 以 借助 屏幕 显示 ， 打 印 
机 可 以 将 显示 内 容 打 印 出 来 永久 性 地 保留 ， 但 价格 较 贵 ， 并 
非 一 般 的 家 庭 和 学 校 所 能 配备 的 。 各 种 设备 具体 的 连接 方法 
可 以 参考 中 华 学 习 机 的 用 户 使 用 手册 。 

总 之 ， 你 至 少 必须 连接 一 台 显 示 设 备 ， 连 接 完成 后 ， 你 
就 可 以 开机 学 习 LOGO 语 言 了 。 
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第 二 章 简单 图 形 


LOGO 语 言 容 易 入 门 ， 生 动 有 趣味 ， 可 以 用 一 些 非常 简 
单 的 命令 作出 许多 奇妙 的 图 形 。 图 2-1、2-2、2-3 提供 了 一 
些 看 来 似乎 很 复杂 的 图 案 ， 但 是 你 只 要 把 本 书 一 页 页 地 阅读 
下 去 ， 要 不 了 多 入 你 就 会 发 现 ， 原 来 竞 是 很 容易 就 能 把 它们 
画 出 来 的 。 

LOGO 语 言 是 一 种 结构 程序 设计 语言 ， 非 常 严谨 ， 科 学 : 
性 强 ， 而 至 今 一 直 作 为 学 习 计算 机 程序 设计 “启蒙 ”语言 的 
BASIC 语 言 却 不 是 结构 性 的 语言 。 因 
此 ， 作 为 初学 程序 设计 的 青少年 学 生 ， 


首先 选择 LOGO 语 言 是 最 为 适宜 不 过 

的 。 掌 握 了 LOGO 语 言 后 ， 进 一 步 再 学 

习 其 他 更 高 级 的 大 型 计算 机 语言 就 有 了 

扎实 牢固 的 基础 。 和 
图 2-3 





不 同 的 计算 机 系统 使 用 不 同 版 本 的 LOGO 语 言 ， 在 我 国 
使 用 最 多 的 是 苹果 机 版 本 和 .PC 机 版 本 ， 在 国外 还 有 许多 不 
辐 的 版 本 ,但 它们 都 是 大 同 小 异 的 ,就 象 同一 种 民族 语言 的 几 
种 方言 一 样 。 中 华 学 习 机 使 用 的 LOGO 语 言 与 苹果 机 版 本 基 
本 一 样 ， 如 果 你 的 中 华 学 习 机 上 装 有 一 台 磁 盘 驱 动 器 的 话 ， 
车 果 机 LOGO 语 言 的 磁盘 甚至 直接 可 以 拿 来 使 用 。 


一 、 怎 样 启动 LOGO 语 言 


如 采 你 已 经 按 第 一 章 说 明 过 的 或 中 华 学 习 机 用 轧 使 用 手 
-项 介 绍 过 的 方法 将 机 器 配置 连接 好 了 ， 那 么 就 可 以 开始 学 习 
LOGO 语 言 了 。 有 两 种 方法 可 以 启动 LOGO 语 言 。 无 论 你 用 
娜 种 方法 ， 首 先 必 须 做 三 件 事 : 

1. 捅 好 电源 捅 头 ; 

2. 开启 显示 器 的 电源 开关 

3. .开启 主机 的 电源 开关 。 

注意 这 第 二 步 和 第 三 步 的 顺序 是 不 能 颠倒 的 。 顺 便 提 一 
下 ， 关 机 时 应 该 先 关闭 主机 的 电源 开关 ， 然 后 再 关闭 显示 噩 
的 电源 开关 ， 与 开机 时 的 次 序 恰 好 相反 ， 这 个 顺序 同样 也 是 
不 能 颠倒 的 。 这 样 做 可 以 保护 你 的 计算 机 不 致 受到 损坏 。 

开机 的 第 三 个 步骤 完成 以 后 ， 屏 幕 上 就 会 显示 ， 
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图 2-4 ”中 华 学 习 机 启动 屏幕 


这 是 主机 中 ROM 里 的 监控 程序 显示 的 APPLESOFT 
BASIC 版 本 说 明 ， 右 下 角 那 个 方 括号 “]2” 叫 做 “系统 提示 
符 ”, 它 右面 紧 接着 有 个 闪 动 的 小 方块 ,叫做 “光标 ?。 在 这 种 状 
态 下 ,你 可 以 在 键盘 上 打 入 APPLESOFT BASIC 的 命令 了 。 

由 于 主机 的 ROM 中 同样 存放 着 LOGO 语言 的 解释 系统 ， 
因此 只 须 在 键盘 上 打 入 一 条 命令 “LG2” 就 能 将 ROM 中 的 该 
解释 系统 调 入 内 存 来 执行 ，LOGO 语 言 就 被 “启动 >” 了。 这 
是 第 一 种 启动 方法 。 

]LG 亿 

这 里 的 符号 “2 表示 Retum 键 。 在 每 条 命令 的 未 尾 都 
， 冰 该 按 下 Retum 键 ， 以 结束 该 命令 的 输入 并 让 计算 机 接受 。 
命令 输入 后 ， 固 化 在 ROM 里 的 LOGO 解释 系统 就 被 调 入 内 
存 ， 接 着 屏幕 显示 ; 
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图 2-5 L0G0 语 言 启动 飞 蓄 

这 就 是 LOGO 语 言 的 版 本 说 明 。 左 下 角 的 那个 问号 <?”， 
就 是 LOGO 语 言 的 提示 符 。 此 时 你 就 可 以 打 入 LOGO 的 命令 
于 6 

如 果 你 的 中 华 学 习 机 上 已 接 有 磁盘 驱动 器 的 话 ， 那 么 你 
就 能 使 用 软盘 版 本 的 LOGO 语 言 ， 也 就 有 条 件 用 软盘 片 保存 
你 的 程序 了 。 使 用 软盘 应 该 在 开机 前 先 将 磁盘 操作 系统 DOS 
3.3 的 软盘 插 进 驱 动 器 内 ， 关 上 小 门 ， 然 后 再 开启 主 机 电源 


@ 了 


开关 。 磁 盘 驱 动 器 的 工作 指示 灯 开 始 发 光 ， 同 时 可 以 听 到 驱 
动 器 里 面 有 马达 转动 的 声音 ， 过 一 会 儿 指示 灯 熄 灭 之 后 ， 屏 
幕 显示 ， 
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图 2-6 D0S BASIC 启 动 屏 幕 

这 是 DOS BASIC 的 版 本 说 明 ， 它 的 提示 符 同 APPLES- 
OFT BASIC 的 是 一 样 的 。 在 DOS BASIC 的 状态 下 要 进入 
LOGO 语 言 ， 必 须 在 “LG” 命 令 前 先 打 入 一 条 “MAXEFILE 
SI” 命 令 。 

] MAXRFILE SI 
] LG 

这 时 ， 屏 幕 上 显示 图 2-5 的 LOGO 语言 版 本 说 明 ， 这 是 
启动 LOGO 的 第 二 种 方法 。 

每 一 台中 华 学 习 机 都 在 ROM 中 固化 了 LOGO 语言 ， 由 
于 第 一 种 启动 方法 直接 简捷 ， 而 第 二 种 启动 方法 必须 配 接 磁 
盘 驱动 器 ， 使 用 LOGO 语 言 的 效果 却 是 一 样 的 ， 因 此 只 须 选 
择 第 一 种 方法 就 能 满足 你 学 习 LOGO 语 言 的 需要 了 。 

如 果 你 的 机 器 装 有 磁盘 驱动 器 的 话 ， 蔷 果 机 版 本 的 
LOGO 语 言 盘 片 也 是 可 以 使 用 的 ， 只 须 在 开机 前 先 将 这 片 软 
盘 播 进 驱动 器 关上 小 门 即 可 。 两 种 版 本 的 语言 稍 有 不 同 。 一 般 
说 来 ,， 在 中华 学 习 机 上 学 习 LOGO 语 言 时 ， 使 用 哪 一 种 版 本 
都 是 可 以 的 。 然 而 ， 本 书 是 完全 按照 中 华 机 ROM 版 本 编写 
前 ， 而 且 使 用 .ROOM 版 本 较 其 他 任何 版 本 方便 得 多 ， 因 此 建 
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议 你 选用 这 个 版 本 。 中 华 机 的 ROM 版 本 LOGO 基本 上 与 MIT 
LOGO 版 本 相同 〈MIT 是 美国 麻 省 理工 学 院 的 缩写 ) 。 如 果 
你 使 用 其 他 的 版 本 时 ， 应 该 注意 查阅 有 关 的 资料 或 手册 。 


二 、 基 本 作 图 命令 (一 ) 


计算 机 进入 LOGO 语 言 的 状态 后 ,屏幕 中 央 就 显示 出 一 个 
小 的 三 角形 ,LOGO 语 言 里 称 它 为 "海龟 "。 为 了 比较 容易 地 理 
解 作 图 命令 ,我 们 不 妨 作 一 个 想象 ,假定 海 色 手 里 握 着 一 枝 画 
笔 , 当 海龟 在 屏幕 上 移动 时 , 这 枝 画笔 就 一 路 上 画 出 线条 来 ， 
这 些 线条 就 构成 各 种 各 样 的 图 形 。 海 龟 总 是 沿 着 它 的 头 部 朝 
着 的 方向 移动 的 。 现 在 让 我 们 先 来 学 习 几 种 海龟 作 图 命令 。 

回 家 命令 HOME 

海 色 的 家 就 在 屏幕 的 正中 央 。HOME 命 令 的 功能 就 是 叫 
海龟 回 记 屏幕 的 中 央 ， 并 使 其 头 向 上 。 海 龟 从 当前 的 任何 位 
置 返回 屏幕 中 央 总 是 沿 一 条 直线 跑 的 ， 因 此 在 当前 位 置 与 屏 
幕 中 央 之 间 就 画 出 一 条 直线 来 。 

屏幕 清除 命令 CS 

这 个 命令 的 功能 是 把 屏幕 清除 干净 ， 只 留 下 海龟。 

每 次 要 画 一 个 新 的 图 形 时 ， 总 是 先 用 一 条 HOME 命 令 
把 海龟 移 到 屏幕 正中 央 ; 再 用 一 条 CS 命令 把 屏幕 清除 干净 ， 
只 留 下 海龟 在 屏幕 中 央 , 并 使 其 头 向 上 。 换 名 话说 ，HOME 命 
令 和 CS 命令 一 起 使 用 可 使 屏幕 恢复 初始 状态 。 在 中 华 学 习 机 
工 OGO 语 言 里 ， HOME 和 CS 两 条 命令 可 以 用 一 条 DRAW 
命令 来 代替 ， 功 能 完全 一 样 。 

向 前 移动 命令 FD 


这 个 命令 能 使 海龟 沿 着 它 的 头 所 指 的 方向 前 进 到 指定 的 

步 数 。 例 如 ， 

FED 50 全 
这 条 命令 让 海龟 向 前 移动 50 步 ， 于 是 在 海龟 原来 位 置 和 移动 
后 的 位 置 之 间 出 现 了 一 条 长 50 步 的 线段 。 

应 该 注意 ， 在 键盘 上 输入 这 条 命令 时 ， “FED?” 与 “502 
之 间 至 少 得 有 一 个 空格 。 命 令 的 最 后 有 个 记号 “4 ”表示 回 
车 键 。LOGO 语言 的 每 一 条 命令 的 末尾 都 必须 以 回 车 符 结 
东 ， 但 本 书 中 的 命令 除非 特别 必要 ， 一 般 都 把 它 省 略 了 。 你 
在 键入 命令 时 ， 不 要 忘记 结束 时 应 按 一 下 Return 键 。 

顺 时 针 旋 转 命令 RT 

这 个 命令 让 海龟 的 头 部 沿 顺 时 针 方 向 旋转 到 指定 的 角 
度 。 顺 时 针 方向 旋转 也 叫做 向 右 旋转 。 例 如 命令 ; 

RT 90 一 
让 海龟 按 顺 时 针 方 向 旋 转 90"。 如 果 海 龟 原来 指向 正 上 方 ， 
那 末 执行 这 条 命令 后 ， 海 龟 就 朝向 正 右 方 了 。 

逆 时 针 旋 转 命令 LT 

本 命令 使 海龟 按 逆 时 针 方 向 旋转 到 指定 的 角度 。 逆 时 针 
旋转 叉 叫 向 左旋 转 。 例 如 命令 ; 

LT 60 全 
使 海龟 按 道 时针 方向 旋转 60"。 

向 后 移动 命令 BK 

这 条 命令 使 海龟 背 着 其 头 部 的 方向 ， 也 就 是 沿 着 相反 方 
向 后 退 到 指定 的 步 数 。 例 如 命令 : 

BK 40 全 
让 海 旬 后 退 40 步 ， 并 在 后 退 时 画 出 一 条 40 步 长 的 直线 段 来 。 
方向 设 定 命令 SETH 
ee 和 0>。 


你 可 以 把 屏幕 看 成 一 个 带 刻 度 的 圆 盘 ， 就 象 一 个 指南 
针 ， 或 者 是 数学 里 的 极 坐 标 ， 把 海龟 看 成 一 根 指 针 。 这 个 圆 
盘 分 成 360"， 标 为 4" 一 359"， 见 图 2-7。 

如 果 要 让 海 旬 的 头 指向 图 中 的 90” 了 
方向 ， 可 以 键入 命令 ， 

SETH 90 全 

注意 ，SETH 命令 同 RT 命 令 或 LT 
命令 是 不 同 的 。 例 如 ， 命 令 “RT 902 
让 海龟 从 当前 所 指 的 方向 出 发 ， 向 右 旋 图 ?7 
转 90"。 如 果 海 龟 当 前 方向 是 60"， 那 末 
执行 本 命令 后 ,海龟 的 指向 就 变 成 150" 了。 然而 命令 “SETH 
90” 无 论 它 当 前 朝 着 什么 方向 ， 人 的 方向 。 

有 了 上 面 讲 的 这 七 个 基本 作 图 命令 后 ， 我 们 已 经 可 以 让 
海龟 画 出 一 些 有 趣 的 图 形 了 。 

以 上 我 们 一 行 写 一 条 命令 时 , 总 是 以 Return 键 作为 结束 ， 
常 以 符号 “+*” 表 示 。 以 后 ， 我 们 在 书写 命令 时 ， 除 非特 别 
说 明 ， 一 般 不 再 书写 这 个 Return 键 的 符号 了 ， 但 你 在 输入 命 
令 时 ， 请 不 要 忘记 这 个 Returmn 键 。 

[ 例 2.13 

下 面 一 组 命令 画 出 一 个 正方 形 。 

DRAW 人 


人 国 | 国 


FD 50 (an () 

RT 90 2-8 
FD 50 

RT 90 
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FD 50 
RT 90 
第 一 条 DRA 双 命令 的 作用 同 HOME 和 CS 两 条 命令 相 
间 ， 将 海 色 移 到 屏幕 中 央 、 让 它 头 部 地 上， 并 将 屏幕 清除 ， 
此 时 屏幕 如 图 2-8(a) 所 示 。 
命令 “FD 502” 让 海龟 向 前 走 50 步 ， 得 到 正方 形 的 第 一 
条 边 ， 如 图 2-8(b) 所 示 。 
命令 “RT 902” 让 海龟 的 头 部 顺 时 针 旋 转 90"， 如 图 2-8 
〈《c) 所 示 。 接 着 的 一 系列 FD 和 有 RT 命令 分 别 画 出 正方 形 的 
另外 三 条 边 ， 最 终 得 到 图 2-8(d) 所 示 的 正方 形 。 
[ 例 2.2] 
下 面 一 组 命令 画 出 如 图 2-9 所 示 的 图 形 。 
DRAW 
RT 30 
FD 40 
RT 60 
FD 30 
LT 60 
FD 55 图 2-9 
[ 例 2.3] 
写 出 图 2-10 所 示 的 图 形 需 要 的 一 组 命令 
DRAW 
SETH 30 
FD 30 
SETH 270 
FD 30 


HOME 图 2?-10 
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BK 50 
FED、BK、RT 和 LT 等 命令 还 可 以 使 用 负数 及 带 小 数 点 
的 数 。 例 如 : 
FD -5 表示 后 退 5 步 ， 相 当 于 BK5; 
BK -5 表示 前 进 5 步 ， 相 当 于 FD5; 
RT -10 表示 逆 时 针 旋 转 10"， 相 当 于 LT10; 
LT -10 表示 顺 时 针 旋 转 10"， 相 当 于 RT10; 
FD 0.5 表示 向 前 0.5 步 ; 
RT 0.3 表示 顺 时 针 旋 转 0.3"。 
练习 1 
1. 在 屏幕 上 分 别 画 出 下 列 各 图 形 : 


人 人 ) 4) 
{2) 
f9) 


、 修 改 命 令 


当 你 在 计算 机 上 练习 上 一 节 的 几 个 例子 时 ， 可 能 已 经 遇 
到 了 一 些 麻烦 。 璧 如 说 ， 你 在 输 入 命令 “FD 50” 时 ， 忘 
记 了 “FD” 和 “502” 之 间 应 该 有 一 个 空格 ,成 了 “FD50”。 
此 时 ， 屏 幕 上 就 会 显示 出 错 信息 : 

THERE IS NO PROCEDURE NAMED FD50 
它 告 诉 你 ， 输 入 的 “FED50” 是 独 误 的 。 

容易 出 现 的 错误 有 ， 人 缺漏 、 多 余 、 重 复 、 打 错字 符 。 在 
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键入 字符 时 ， 光 标 总 是 册 现 在 下 一 个 要 键入 的 字符 的 位 置 
上 。 如 果 发 现 按键 有 错 ， 可 以 用 下 面 购 命令 移动 光标 ， 然 后 
再 进行 修改 。 

ESC 键 〖《 抹 除 光 标 左 面 的 一 个 字符 ， 并 将 光标 左 移 一 

格 。 

< 键 ”光标 左 移 一 格 ， 但 不 抹 除 任何 字符 

> 键 光标 右 移 一 格 ， 也 不 抹 除 任何 字符 ; 

Ctl-D 删除 光标 处 的 字符 。 删 除 后 在 光标 处 又 可 继续 

键入 字符 ; 

Ctrl-A 光标 移 至 行 首 ; 

Cl-E 光标 移 至 行 末 ; 

Ctrl- 开 删除 该 行 从 光标 开始 的 所 有 字符 3 

Ctrl-P 重 现 刚才 输入 的 行 。 

你 可 从 下 面 的 实例 中 看 到 究竟 是 怎样 用 这 些 命令 来 进行 
修改 的 。 假 定 现在 键入 的 是 “FD50?， 但 在 还 没有 按 下 Return 
键 时 ,已 发 现 其 中 忘记 键入 一 个 空格 了 。 此 时 光标 是 在 最 后 的 
那个 0 ”的 后 面 。 修 改 的 方法 是 ， 按 下 光标 左 移 键 “<”， 
让 光标 先 移 到 字符 “5 ”上 ， 再 键入 一 个 空格 ， 这 样 就 在 
“D” 和 “52” 之 间 揪 入 了 一 个 空格 ， 光 标 仍 留 在 “5? 
上 。 然 后 再 按 光 标 右 移 键 “[>” 两 次 ， 光 标 再 次 移 到 “0? 
的 右面 ， 得 到 “FD 50”， 修 改 就 告 完成 。 

另 一 种 情况 ， 如果 你 输入 “FED50” 后 已 经 按 下 了 Return 
键 ， 这 样 这 条 错误 的 命令 就 被 送 入 了 计算 机 ， 屏 幕 上 就 会 显 
示 出 销 信 息 ， 

THERE IS NO PROCEDURE NAMED FD50 

解决 的 办 法 有 两 种 。 一 种 是 重新 输 入 一 次 正确 的 命令 
“FED 50”， 当 然 是 可 以 的 ， 但 这 算 不 上 是 修改 ， 另 一 种 
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方法 是 先 使 用 “ 重 现行 2 命令， 即 键入 Ctrl-P， 这 时 屏幕 上 
重新 显示 刚才 输入 的 “FD50”， 光 标 落 在 最 后 的 “02 的 
右面 。 这 与 上 面 未 按 Returmn 键 的 情况 完全 一 样 ， 那 么 就 可 以 
用 上 面 介绍 的 方法 用 光标 键 “ 急 ”和 “[>” 进 行 修 改 。 
练习 2 

对 下 面 六 个 图 形 ， 各 编写 一 组 命令 使 其 在 屏幕 上 画 出 


(3) 


第 cc 永 


(6) 


四 、 基 本 作 图 命令 (二 ) 


通过 前 面 的 例子 和 和 练习， 我们 可 以 发 现 ， 海 龟 在 作 图 时 
它 总 是 和 图 形 一 起 出 现 的 。 但 是 ， 有 时 我 们 并 不 希望 这 样 。 
海龟 隐身 命令 可 以 让 海龟 在 屏幕 上 消失 ， 但 是 “隐身 ”的 海 
龟 仍 然 手 握 画 笔 按 照 命令 的 要 求 画 出 图 形 。 

海龟 隐身 命令 HT 

[ 例 2.437 

DRAW 

e15。 


瑟 工 
FD 
有 人 工 
FD 
王 于 
B 开 


50 
30 
60 
60 
50 


由 于 第 二 行 联 下 命 令 的 作用 ， 你 可 以 看 到 海龟 已 经 消 
失 ， 但 是 其 后 面 的 各 条 命令 ， 仍 能 在 屏幕 上 画 出 图 形 来 。 

海龟 隐 去 后 ， 如 果 需 要 它 重 新 显现 出 来 ，LOQO 语 言 也 
提供 了 相应 的 命令 。 

海龟 现 身 命令 ST 


如 果 在 本 例 的 一 组 命令 后 再 键入 命令 ST， 


则 海 旬 在 它 


最 后 一 次 移动 后 的 位 置 上 又 重新 显露 出 来 了 。 

由 于 海龟 手提 画笔 一 路 走 一 路 画 ， 因 此 它 在 留 下 了 一 条 
连续 的 移动 踪迹 。 如 果 需 要 在 某 一 段位 置 海龟 只 移动 而 不 天 
线 ， 就 必须 请 海 色 把 画笔 提起 ， 离 开 画 面 。 

提 笔 命令 PTU 

[ 例 2.53 

DRAW 


FD 
有 人 工 
了 U 
FED 
工 工 
了 开 


第 4 行 命令 
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50 
30 


60 
60 
50 


“PU2” 让 海 色 将 画笔 提起 了 ， 其 后 各 行 的 


三 条 命令 虽 能 使 海龟 在 屏幕 上 移动 ， 但 不 再 画 下 线段 了 。 

如 果 要 使 提起 的 画笔 再 次 落下 ， 重 新 画 出 图 形 来 ， 可 使 
用 落笔 命令 。 

落笔 命令 PD 

[ 例 2.6] 

观察 下 面 一 组 命令 

DRAW 

P D 

FD 50 

RT 90 

P U 

FD 60 

RT 90 

PD 

FD 80 

这 组 命令 的 第 2 行 用 了 一 条 “P D?2” 命 令 ， 这 是 因为 在 
例 2.5 中 曾 用 过 一 条 “了 P U2 命令 ， 海 龟 仍 处 于 提 笔 状态 , 必 
须 落 下 后 才能 作 图 。 第 6 行 “FD602 和 第 7 行 “RT902 
两 条 命令 只 移动 海龟 ， 线 段 并 没有 在 屏幕 上 显示 ， 这 是 因为 
第 5 行 用 了 一 条 “P U2? 提 笔 命令 。 同 样 ， 由 于 有 了 第 8 行 
的 “PD2” 命 令 ， 因 此 第 9 行 的 “F D80” 命 令 又 能 画 出 线 
段 来 了 。 

现在 ， 请 你 读 一 读 下 面 这 段 程序 ， 容 易 知道 它们 执行 后 
就 能 画 出 一 个 边 长 为 50 的 正方 形 。 

DRAW 

FD 50 

了 工 90 
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FD 50 

RT 90 

PD 50 

RT 90 

FD 50 

RT 90 

其 中 两 条 命令 “FD 50” 和 “RT 902” 重 复出 现 了 
4 次 。 相 同 命令 的 重复 出 现 不 仅 加 重 了 书写 负担 ， 增 加 了 出 
错 机 会 ， 而 且 占 据 了 篇 幅 ， 浪 费 了 计算 机 的 存储 空间 。 

重复 执 和 了 村 命令 “REPEAT 

譬如 说 ,上 面 这 段 程序 中 的 后 8 行 指 令 , 可 以 用 REPEAT 
命令 改写 成 

REPEAT 4CFD 50 RT 903 

条 命令 的 意思 是 ， 将 方 括号 里 的 命令 重复 执行 4 遍 。 

[ 例 2.7] 

下 面 这 条 重复 执行 命令 能 画 出 图 2-11 所 示 的 阶梯 状 图 
案 ， 

REPEAT 3CSETH 9%0 FD 30 RT 9%0 FD 

20] 
在 方 括号 里 的 那些 命令 可 以 画 出 一 级 
阶梯 的 图 形 ， 方 括号 前 面 的 数字 3 表 0 
示 方 括号 里 的 命令 需 重复 执行 3 次 
因此 能 画 出 三 级 阶梯 来 。 

[ 例 2-8] 

下 面 的 命令 画 出 图 2 -12 中 的 图 
形 ; 

DRAW 2 -12. 
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REPEAT 4[FED 40 RT 150 FD 50 有 RT 
120 FEFD 30] 
[ 倪 2.9] 
画 出 图 2 -13 所 示 的 图 形 。 
这 个 图 形 看 上 去 似乎 有 些 复杂 ， 但 
稍 作 分 析 后 容易 看 出 ， 它 是 由 8 个 小 正 
方形 构成 的 ， 这 8 个 小 正方 形 是 同一 个 人 
正方 形 每 次 旋转 45*， 共 旋转 8 次 而 得 到 。 因 此 先 用 命令 
REPEAT 4[CFED 30 RT 90] 
画 出 一 个 正方 形 。 再 将 海龟 旋转 45*， 又 可 画 下 一 个 三 角形 
了 。 依 次 类 推 ， 重 复 8 遍 。 因 此 ， 可 用 下 列 命令 实现 ， 
DRAW 
REPEAT 8[CREPEAT 45CFED 30 RTL 90]. 
RT 45] 
[ 例 2.10] 
试用 程序 画 出 图 2 -14 的 图 形 。 
先 对 该 图 进行 分 析 ， 它 是 由 10 个 
正 五 边 形 组 成 的 。 命 令 
REPEAT 5CFED 30 
RT 72] 2 -14 
可 以 画 出 一 个 正 五 边 形 ， 其 中 72" 就 是 正 五 边 形 的 外 角 。 一 
个 正 五 边 形 每 次 旋转 36"， 旋 转 10 次 即 得 该 图 形 。 
程序 如 下 ; 
DRAW 
REPEAT 105REPEAT 5CFD 30 RT 72] 
RT 36] 
上 面 的 三 个 例子 都 是 由 一 个 多 边 形 环绕 某 一 个 公共 顶点 
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旋转 而 成 一 个 新 图 形 。 下 例 中 的 图 形 没 有 这 样 的 公共 顶点 ， 
而 是 围绕 一 个 轴 旋 转 而 成 。 
… 例 2.11 
编制 一 组 命令 ， 画 出 图 2 -15 所 示 
的 图 形 。 
DRAW 
REPEAT 。 5CREPEAT 
3CFED 40 RT 120]RT 72 FD 人 
153 
细心 的 读者 也 许 已 经 发 现 ， 我 们 这 本 书 里 有 些 计算 机 打 
印 的 插图 形状 或 多 或 少 有 些 “ 扁 ”。 产 生 这 种 现象 的 原因 是 
海 色 在 水 平和 竖 直 两 个 方向 上 走 的 步 长 不 一 样 。 开 机 后 ， 计 
算 机 自动 地 将 水 平方 向 和 竖 直 方向 的 步 长 比例 设置 为 0.8, 需 
要 改变 这 个 比例 时 ，LOGO 语 言 也 提供 了 相应 的 命令 。 
长 宽 比 例 命 令 。ASPECT 
使 用 这 个 命令 时 后 面 应 带 一 个 参数 ， 就 是 具体 的 比值 数 。 另 
外 ， 这 命令 前 的 那个 圆 点 “。 2” 是 不 可 以 忘记 的 。 
例如 ， 
:ASEECT 
把 长 和 宽 的 比例 改 为 1， 即 相等 。 又 如 
。ASPECT 1.5 
又 把 这 个 比值 改 为 1.5。 在 任何 一 个 ASPECT 命 令 之 后 ， 海 
色 作 图 就 按 新 指定 的 比例 进行 
练习 3 
1. 自 编 程序 画 出 下 列 各 图 形 
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五 、 全 屏幕 作 图 


到 目前 为 止 ， 在 海龟 作 图 时 ， 命 令 都 在 屏幕 底部 的 4 行 
里 显示 出 来 。 整 个 中 华 学 习 机 显示 屏幕 共有 24 行 ， 上 面 的 20 
行 画面 供 作 图 用 。 我 们 把 这 种 作 图 显示 方式 称 为 分 屏 作 图 方 
式 。 有 时 需要 画 出 较 大 的 图 形 ， 可 以 采用 全 屏 作 图 方式 ， 把 
整个 屏幕 的 24 行 全 部 用 来 作 图 ， 因 此 屏幕 不 再 显示 命令 了 。 
全 屏 作 图 命令 FULLSCREEN 
例如 ， 下 面 一 段 程序 将 画 出 一 个 长 200 步 、 宽 100 步 的 长 
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方形 ， 而 键入 的 命令 都 不 显示 出 来 。 
DRAW 
FULLSCREEN 
PPD 100 
工 工 90 
PPD 100 
工人 90 
FD 200 
于 人 90 
FFD 100 
工人 90 
FD 100 
使 用 FULLSCREEN 命 令 可 将 整个 显示 屏幕 全 部 用 来 作 
图 ， 作 图 的 范围 是 扩大 了 ， 但 其 侧 点 是 键入 的 命令 再 也 看 不 
到 了 ， 因 此 在 键入 命令 时 如 果 出 现 错误 也 就 不 易 发 觉 了 。 
如 果 需 要 从 全 屏 作 图 方式 恢复 分 屏 作 图 方式 ， 可 以 使 用 
LOGO 语 言 提供 的 分 屏 作 图 命令 。 
分 屏 作 图 命令 ”SPLITSCREEN 
海 旬 在 作 图 时 ， 屏 幕 的 作 图 范围 是 有 一 定 限制 的 ， 如 图 
2 -16 所 示 。 
5 例 2.123 
键入 一 组 命令 ， 
DRAW 
EULLSCREEN 
FED 150 
你 可 以 发 现 ， 屏 幕 上 画 出 的 直 攻 
线段 被 分 成 上 下 两 枝 ， 如 图 ,2 -17 所 示 。 这 是 因为 海龟 向 上 。 
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然后 又 从 屏幕 的 底部 边界 进入 ， 走 完 余下 
的 30 步 。 就 好 象 屏幕 的 上 下 边界 是 互相 过 
续 的 一 样 ， 见 图 2-17。 同 样 , 当 海 怨 从 
下 面 (左面 或 右面 ) 越 出 边界 后 ， 它 又 会 ”图 2-17 
从 其 相对 的 上 面 〈 右 面 或 左面 ) 边界 继续 
进入 。 这 种 现象 称 为 “WRAP”， 就 是 “ 卷 绕 > 的 意思 。 


走 了 120 步 就 到 了 屏幕 的 顶部 边界 而 越 出 , 厂 [ 


1. 启动 步 又 ， 

(1 ) 揪 好 电源 播 头 ; 

(2 ) 开 局 显示 器 的 电源 开关 ; 

〈3 ) 开 启 主机 的 电源 开关 。 

2. 关机 步骤 的 次 序 正 好 与 局 动 步 又 相反 。 
3. 海龟 作 图 命令 : 


HOME 海龟 返回 屏幕 中 央 ; 

C S 清除 屏幕 

DRAW 海龟 返回 屏幕 中 央 并 清除 屏幕 # 
FD 海龟 前 进 ; 

B 开 海龟 后 退 ; 

RT 顺 时 针 旋 转 ; 

开工 闭 时 针 旋 转 ; 

SETH 设置 方向 ; 

HT 海 色 隐 身 ; 

S 海 优 重 现 ; 
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PTU 提 笔 
PD 落笔 
REPEAT 重复 执行 ; 


。A9SPECT 设 定 长 宽 比 例 ; 
EULLSCREEN 全 屏 作 图 方式 ; 
SPLITSCREEN 分 屏 作 图 方式 。 

4. 屏幕 修改 命令 


卫 SC 
扎 


[> 
Ctrl-D 


Ctrl-A 
Ctrl- 节 
Ctrl- 民 
Ctrl-P 
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抹 除 光标 左面 一 个 字符 ， 光 标 左 移 一 格 ; 
光标 左 移 一 格 ， 不 抹 除 任何 字符 ; 

光标 右 移 一 格 ， 也 不 抹 除 任何 字符 ; 
删除 光标 处 的 字符 ， 删 除 后 该 处 可 继续 键 
入 ; 

光标 移 至 行 首 

光标 移 至 行 末 : 

删除 光标 至 行 末 的 所 有 字符 

重 现行 。 


第 三 章 过 程 


所 谓 过 程 ， 是 LOGO 和 其 他 一 些 计算 机 语言 强 有 力 的 编 
程 工 具 ， 它 可 以 扩充 LOGO 语 言 的 命令 集 ， 用 简单 的 步骤 来 
构造 复杂 的 程序 。 更 为 深远 的 意义 是 ， 用 过 程 编制 程序 能 很 
自然 地 形成 模块 化 的 程序 结构 。 


一 、 了 最 简 学 的 过 程 


本 节 介 绍 最 简单 的 过 程 并 不 是 它 的 命令 很 简单 ， 或 者 只 
有 很 少 的 几 条 命令 ， 而 是 这 种 过 程 不 带 有 输入 人 参数。 
一 个 过 程 就 是 把 若干 条 命令 作为 一 个 独立 的 程序 单位 ， 
给 它们 取 一 个 名 字 ， 并 按 一 定 方式 组 织 起 来 。 
我 们 先 举 一 个 例子 来 说 明 过 程 是 怎样 进行 编写 的 ， 一 个 
过 程 的 基本 结构 又 是 怎样 的 。 
[ 例 3.1 
我 们 知道 ， 画 一 个 边 长 为 30 步 的 正方 形 的 命令 是 ， 
REPEAT 4CFED 30 RT 90] 
把 它 编 成 一 个 名 为 BOX 的 过 程 是 : 
TO BOX 
REPEAT 4C5FED 30 RT 90] 
END 
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这 里 的 “BOX” 就 是 过 程 名 ，“TO2” 是 过 程 的 开始 符 ， 
“END” 是 过 程 的 结束 符 。 开 始 符 和 结束 符 之 间 的 那个 画 
正方 形 的 命令 称 这 个 过 程 的 过 程 体 。 

每 个 过 程 都 以 “人 TO” 开始 ， 在 它 和 后 面 的 过 程 名 之 间 
至 少 得 有 一 个 空格 。 过 程 名 是 由 一 串 字 母 、 数 字 等 符号 所 组 
成 。 例 如 ，BOX、TRE、2P、3.1、2-A 等 都 可 以 用 作 过 程 
名 。 但 是 ， 过 程 名 中 间 不 得 出 现 空格 、 括 号 和 运算 符 。 例 如 
A+B、M12、(31C ) 等 不 能 用 作 过 程 名 。 此 外 ，LOGO 
语言 中 的 一 些 命令 名 ， 如 FED、HT、RT 等 也 不 能 用 作 过 
程 名 ， 和 否则 会 产生 混淆 。 通 常 ， 你 可 以 按 自 己 的 需要 ， 遵 守 
上 面 的 规 别 随意 地 取 过 程 名 ， 当 然 最 好 取 名 能 做 到 简短 、 不 
重复 、 又 能 顾名思义 ， 使 过 程 的 功能 一 上 且 了 然 。 

每 个 过 程 都 必须 以 “END2” 结束 。 

当 我 们 从 键盘 上 输入 了 一 个 过 程 后 ， 了 就 叫做 定义 了 这 个 
过 程 。 必 须 注意 的 是 ， 过 程 定 义 后 ， 过 程 体 里 的 命令 并 不 是 
马上 就 被 执行 的 。 璧 如 说 ， 当 你 在 键盘 上 输入 完 上 面 的 那个 
过 程 后 ， 屏 幕 上 并 没有 显示 出 一 个 边 长 为 30 步 的 正方 形 来 。 
此 时 ， 应 该 先 键入 一 个 Ctrl-C 命 令 ， 于 是 屏幕 上 就 显示 出 两 
行 信 息 ， 

PLEASE WAIT 

BOX DEFINED 
这 是 计算 机 在 告诉 你 ， 键 入 的 过 程 BOX 已 经 定义 完毕 。 此 
时 ， 只 需 键 入 过 程 名 ， 

BOX< 
该 过 程 就 被 执行 了 ， 也 就 是 过 程 体 里 的 命令 被 执行 了 ， 于 是 
屏幕 上 画 出 一 个 边 长 为 30 步 的 正方 形 来 。 

在 程序 中 引入 过 程 就 是 先 将 若干 条 命 令 定义 为 一 个 过 
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程 ， 编 程 时 只 需 用 这 个 过 程 的 名 字 就 能 代替 这 些 命令 了 。 例 

如 ， 定 义 了 一 个 过 程 BOX 以后， 下 面 这 段 程序 ， 
REPEAT 4[FED 30 RT 90] 
RT 90 
FD 30 
LT 90 
REPEAT 


及 卫 
下 卫 
工 工 


90 
30 
90 


REPEAT 


就 可 写成 : 
BOX 
及 工 
ED 
工 工 
BOX 
及 工 
ED 
工 工 
BOX 


90 
30 
90 


90 
30 
90 


4[FD 30 RT 90] 


4[FED 30 RT 90) 


这 有 段 程序 将 在 屏幕 上 画 出 图 3 - 工 中 的 三 个 正方 形 。 
如 果 为 把 另 一 些 命令 也 定义 一 个 过 程 ; 


| 


TO LINK 


RT 
FD 
了 


90 
30 
90 


图 3-1 
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END 
并 键入 Ctrl-C。 那 未 上 面 的 程序 又 可 写成 
BOX 
LINK 
BOX 
LINK 
BOX 
一 个 过 程 也 可 以 包含 在 另 一 个 过 程 的 过 程 体内 ， 换 句 话 
说 ， 就 是 过 程 里 面 套 有 过 程 ， 这 种 情况 在 程序 设计 中 称 为 过 
程 嵌 套 。 
[ 例 3.2] 


这 里 给 出 两 个 过 程 2 和 2Z3。 
TO 2 TO Z3 
RTIT 30 Z 
FD 30 Z 
LT 30 Z 
BK 30 END 
END Ctrl-C 
Ctrl-C 


容易 看 出 ， 过 程 Z3 的 过 程 体 里 骸 套 着 过 程 Z2， 这 叫做 过 
程 23“ 调 用 ”过 程 Z2，Z3 叫 做 主 过 程 ， 2Z 叫做 子 过 程 。 主 过 
程 和 子 过 程 之 间 有 着 调用 关系 ， 由 主 过 程 调用 子 过 程 。 然 而 
子 过 程 本 身 也 是 独立 的 过 程 。 

具体 的 执行 情况 是 这 样 的 ， 键 入 过 程 名 Z* 后 ， 就 执行 过 
程 23， 即 逐个 执行 23 过 程 体 中 的 命令 。 先 执行 第 一 个 “2”， 
即 调 用 过 程 2 ， 执 行 它 的 过 程 体 中 的 命令 ,执行 完毕 返回 过 
程 23 中 第 二 个 “Z”， 再 去 执行 2 过 程 体 的 命令 ， 然 后 又 返 
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回 过 程 Z3。 依 此 类 推 ， 在 遇 到 过 程 Z3 最 后 一 个 命令 END 时 
就 告 结 束 。 

本 例 画 出 的 图 形 见 图 3- 2。 

每 当 在 键盘 上 输入 LOGO 命令 时 ， [AVAA 
每 一 行 命令 的 前 通常 会 出 现 过 一 个 提示 图 3-2 
符 “? ”。 但 是 ,你 是 否 注意 到 ,在 建立 过 程 的 时 候 ,也 就 是 在 键 
入 “个 O 过程 名 ?的 命令 以 后 ,提示 符 就 消失 了 。 当 整个 过 程 
体 输入 完毕 , 在 END 命 令 之 后 又 键入 了 Ctrl-C, 屏 幕 上 先 显示 
出 PLEASE WAIT… (请 你 安心 等 待 ); 接着 又 显示 某 过 程 
“DEFINED?” 的 字样 ， 表 示 过 程 定 义 完毕 ; 此 时 提示 符 “ ? ” 
重新 出 现 。 根 据 这 种 现象 ， 我 们 只 要 看 一 下 有 没有 提示 符 
“? ”， 就 很 容易 知道 当前 是 在 键入 过 程 还 是 一 般 的 命 
令 。 

在 发 生 一 个 过 程序 调用 别 的 过 程 时 ， 各 个 过 程 ， 即 主 过 
程 和 子 过 程 的 建立 先后 次 序 是 无 关 的 。 例 如 下 面 三 个 过 程 
中 ，THREEBOX 是 子 过 程 ，BOX 和 LINK 是 子 过 程 。 三 个 
过 程 建立 的 次 序 可 以 是 任意 的 ， 不 必 是 先 子 过 程 后 主 过 程 ， 
也 不 要 求 非 先 主 过 程 后 子 过 程 不 可 。 

TO THREEBOX TO BOX 

BOX REPEAT 4[CFD 30 RT 90] 
LIN 开 END 

BOX Ctrl-C 

LIN 开 

BOX 

LIN 开 

END 

Ctrl-C 
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TO ELHNK 


及 工 90 
FRD 30 
90 
END 
Gtr-C 
[ 例 3.23 
过 程 BOXES 调 用 四 个 过 程 BOX1;BOX2、BOX3、BOX4。 
TO -BOXES 
DRA 了 


REPEAT -4CBOX1 .BOX2 BOX3 BOX4 LT' 907 
END 

Ctrl-C 

TO BOXI1 

REPEAT 4KFD 10 RT:903 
END 

Ctrt-C 

TO BOX2 

REPEAT 4CFED 20 RT 903] 
END 

Ctrl-C 

TO BOX3 

REPEAT 4CFD 30 RT 90] 
END 

Ctrl-C 

TO BOX4 

REPEAT 4[FD 40 RT 907 


END 
Ctrl-C 
输入 并 定义 了 这 几 个 过 程 后 ， 
再 键入 过 程 名 BOXES， 就 画 出 狠 
3- 3 的 图 形 来 。 
周一 个 过 程 可 以 作为 凡 个 不 同 过 加 3-3 
程 的 子 过 程 。 换 名 话说， 一 个 过 程 可 以 被 不 同 的 过 程 调用 ， 


请 看 下 例 。 





[ 俩 3.33 
过 程 DOUBLE 也 可 调用 例 3.2 中 的 过 程 BDX1、BOAN2。 
BOX3。 
TO _ DOUBLE 
DRAW 
FD 40 
BOX1 
BK 40 
工 工 120 
FD 40 
BOX2 
BEK 40 
工 工 120 
FED 40 
BOX3 
BK 40 
工人 120 < 
END 
Ctrl-C 图 3-4 
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定义 完毕 后 ， 键 入 过 程 名 “DOUBLE”， 屏 幕 就 画 出 
图 3-4 所 示 的 图 形 。 
练习 4 

编写 画 出 下 列 5 个 图 形 的 过 程 ; 


攻 量 六 
(1) (2] | 


二 、 过 程 的 编辑 


在 上 机 输入 过 程 时 ， 修 改 常 是 难免 的 。 程 序 的 输入 和 修 
改 也 叫做 编辑 。LOGO 语 言 提供 一 种 编辑 方式 ， 在 编辑 方式 
下 可 以 使 用 许多 编辑 键 或 命令 。 

进入 编辑 状态 命令 正 D 

正 D 命 令 键 入 后 计算 机 将 处 于 编辑 状态 下 工作 。 例 如 ， 
我 们 需要 定义 一 个 名 为 ABC 的 过 程 ， 可 以 键入 命令 : 

ED ABC 
命令 发 出 后 ， 计 算 机 将 先 清除 屏幕 ， 然 后 在 屏幕 左上 角 显 
示 # TO ABC 
NS 
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光标 处 就 是 当前 可 以 输入 字符 的 位 置 。 屏 幕 底部 出 现 一行 英 
文 信息 ， 这 行 信息 是 黑白 倒转 的 ， 也 叫 “ 负 象 ” 显示。 
EDIT :CTRL-C TO DEFINE，CTRL-G TO 
ABORT 
现在 就 可 以 从 光标 处 开始 键入 过 程 的 内 容 了 。 
”在 编辑 方式 下 可 借助 于 下 面 的 修改 命令 进行 修改 ， 这 些 
命令 多 数 是 专用 复合 控制 键 ， 属 于 双 键 命令 :也 有 少数 几 个 


单 键 命令 。 
匡 SC 


所 


[> 


Ctrl- 和 A 
Ctrl-B 
Ctrl-D 


Cttl- 节 
Ctrl- 下 
Ctrl- 瑟 
Ctrl- 民 
Ctrl-M 
Ctrl-N 


Ctrl-O 


光标 左 移 一 格 ， 且 抹 去 光标 所 在 处 的 字 
符 ; 

光标 左 移 一 格 ， 但 不 抹 去 光标 所 在 处 的 字 
符 ; 

光标 右 移 一 格 ， 也 不 抹 去 光标 廊 在 处 的 字 
符 ; 

光标 移 向 当前 行 的 行 首 ; 

光标 移 至 第 一 行 的 行 首 ; 

删除 光标 处 的 字符 ， 光 标 位 于 行 末 时 ， 本 
命令 将 使 本 行 与 下 一 行 合并 

光标 移 至 当前 行 的 末尾 

光标 移 至 最 后 一 行 的 末尾 ; 

同 <| 键 

删除 当前 行 上 位 于 光标 后 面 的 所 有 字符 * 
同 Return 键 ; 

光标 竖 直 下 移 一 行 ， 如 果 下 一 行 长 度 小 否 
光标 当前 所 在 的 位 置 ， 则 光标 移 到 下 一 行 
的 末尾 ; 

在 光标 当前 位 置 右 侧 生成 一 个 新 的 空 行 ， 
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光标 位 置 不 变 

Cal-P ”光标 竖 直 上 移 一 行 ， 如 果 上 一 行 的 长 度 小 
于 光标 当前 所 在 的 位 置 ， 则 光标 移 到 上 一 
行 的 未 尾 

Ctrl-U 同 > 键 。 

编辑 结束 或 因 故 中 止 编辑 修改 工作 ， 可 用 下 列 命令 退出 
编辑 方式 ， 这 些 命令 都 是 专用 复合 控制 键 。 

Cul-C ”退出 过 程 汐 辑 方式 ， 编 辑 时 所 有 的 输入 内 
容 全 部 有 效 ， 此 时 屏幕 上 显示 

PLEASE WAIT… 

ABC .DEFINED 

这 里 的 “ABC” 是 被 编辑 的 过 程 名 。 

Cul-G 退出 过 程 编 辑 方式 ， 但 所 作 的 输入 或 修改 
全 部 放弃 ， 也 叫做 “中 止 ” 编辑 。 

在 编辑 方式 下 不 仅 可 以 输入 一 个 新 定义 的 过 程 ， 也 能 够 
对 已 经 定义 过 的 过 程 进 行 修改 。 例 如 ， 假 定 曾经 定义 过 一 个 
过 程 ABC， 现 在 需要 对 它 进 行 修改 ， 则 只 须 键入 

ED ABC 

于 是 过 程 ABC 的 内 容 就 会 在 屏幕 上 显示 出 来 ， 接 ,着 就 能 用 
上 述 各 种 命令 移动 光标 进行 修改 。 修 改 缚 束 后 ， 可 以 键入 命 
令 Ctrl-C 退 出 编辑 方式 ， 所 作 的 修 收 得 到 认可 ， 世 就 是 将 修 
政 过 的 过 程 赫 代 了 原来 的 过 程 。 如 果 在 修改 结束 时 键入 Ctt- 
命令 ， 则 所 作 的 修改 全 部 作废 ， 并 退出 过 程 编辑 方式 ， 原 
来 的 过 程 保持 不 变 。Ctl-G 命 令 常用 于 两 种 情况 。 一 种 情况 
是 只 需要 对 已 定义 的 过 程 内 容 进 行 观 察 和 阅读 ， 而 并 不 打算 
作 任 何 修改 ， 另 一 种 情况 是 对 所 作 修改 不 满意 ， .或 者 修改 时 
呈 84。 


将 过 程 搞 得 混乱 不 堪 面 目 全 非 ， 以致 难 以 继续 进行 修改 ， 必 
须 废 弃 所 作 的 修改 以 便 重 新 开始 。 


三 、 用 过 程 编 制程 序 


所 谓 结 构 程 序 设计 方法 ， 就 是 把 求解 一 个 具体 问题 的 程 
序 ， 分 成 若干 个 程序 模块 ， 每 个 模块 分 别 实现 某 个 相对 独立 
的 功能 ， 并 将 它们 按 一 定 的 规则 组 织 起 来 。 使 用 LOGO 语 言 
编制 程序 时 ， 往 往 把 这 些 模块 编制 成 一 个 个 的 过 程 。 

[ 例 3.3] 


画 出 图 3-5 亡 示 的 一 间 小 房子 。 
乍 一 看 ,这 个 图 形似 乎 很 复杂 。 不 过 ,只 


要 我 们 把 这 个 图 形 合理 地 进行 分 解 ， 问 题 还 阅 避 
是 很 简单 的 。 这 个 图 形 可 以 分 为 四 个 部 分 , 屋 “二 | 
顶 、 墙 壁 、 门 . 窗 ， 而 编制 画 出 这 四 部 分 图 形 图 3-5 
的 过 程 是 很 容易 的 。 下 面 先 写 出 这 四 个 过 程 ， 
画 屋 顶 的 过 程 ， 名 为 ROOF; 
TO 了 ROOF 
REPEAT 3CFD 50 RT 1207 
END 
画 墙 壁 的 过 程 SIDES; 
TO 39SIDES 
REPEAT 4CFD 40 RT 903 
END 
过 程 DOOR 用 来 画 房 子 的 门 ; 
TO DOOR 
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FED 25 RT 9%0 FD 10 RT 90 FD 25 

END 
最 后 是 画 窗子 的 过 程 WIND: 

TO WIND 

REPEAT 4CFD 8 RT 90] 

END 

这 四 个 过 程 完成 后 ， 再 编写 一 个 主 过 程 ， 取 名 为 HOU- 

3SE， 它 按 一 定 的 次 序 调用 上 面 这 四 个 过 程 ， 它 们 称 为 过 程 


五 OUSE 的 子 过 程 。 
TO HOUSE 
SIDES 
RT 90 
FD 8 
工 工 90 
DOOR 
二 90 
F D 7 
[下 90 
P TU 
FED 22 
PD 
WIND) 

了 U 
ED 上 
LT 90 
也 开 20 
PD 
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ROOF 

HT 

END 

现在 ， 我 们 只 须 键入 两 条 命令 : 

DRAW 

HOUSE 
屏幕 清除 成 初始 状态 后 即 调用 主 过 程 HOUSE， 画 出 整 座 房 
子 的 图 形 了 。 

这 种 编程 方法 的 优越 性 在 于 ， 一 个 大 问题 划分 为 若干 个 
小 问题 后 ， 可 以 独立 地 编制 、 调 试 ， 并 不 会 影响 其 余部 分 ， 
对 比较 大 型 的 复杂 程序 特别 适宜 。 D 

[ 例 3.43 

天 出 图 3-6 中 的 图 形 。 

对 于 这 个 图 形 ， 可 以 有 不 同 的 分 
解 方法 。 例 如 把 它们 分 解 成 四 个 阶梯 
形 〈a)(b)(c)(d)， 见 图 :3-7。 然 后 再 


把 每 一 个 阶梯 形 分 解 ， 它 们 又 是 由 四 图 3-6 
个 正方 形 组 成 的 。 编 制 一 个 绘 出 正方 形 的 过 程 BOX， 
TO BOX 
REPEAT 4CFED 10 RT 90] 
END 
C 了 四 
有 于 本 TH 
也 
(a bb) (c) 二 
3-1 


海 龟 画 完 一 个 正方 形 后 ， 就 回 到 它 的 起 点 A， 我 们 设 潜 
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使 它 移 到 下 一 个 正方 形 的 起 点 B 〈 图 3-8)。 
编制 一 个 过 程 LIN 开 如 下 : 
TO _ LINK 的 各 
FD 10 P 
RT 90 图 3-8 
FD 10 
于 工 90 
END 
于 是 得 到 由 四 个 正方 形 组 成 的 阶梯 形 的 过 程 4BOX: 
TO 4BOX 
REPEAT 4[BOX LINK] 
END 
最 后 将 四 个 阶梯 形 连 接 起 来 ， 得 到 整个 图 形 指 过 程 
MAIN。 其 中 4“FD 10 RT 902 是 FF 


让 海龟 从 一 个 阶梯 形 的 终点 《如 图 3-7  ; 和 证 
(Ca) 中 的 C 点) 移动 到 下 一 个 阶梯 形 的 
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起 点 (如 图 3-7(b) 中 的 D 点 )。 
另 一 种 分 解 方法 是 ,将 图 3-6 的 图 形 二 

先 分 解 成 图 3-9 和 图 3 -10 这 两 幅 图 形 ， 0 

每 一 个 又 都 可 以 分 解 为 四 条 形状 完全 相同 

的 折线 。 图 3-9 分 解 成 四 条 与 折线 ABCDEF 

相同 的 折线 。 图 3-10 则 分 解 为 四 条 相同 的 折 

线 HIJK。 对 于 图 3-9， 过 程 编 制 如 王 ， 
TO ”ABCDEF 3-10 
FD 10 RT 90 FED 20 LT 90 FED 20 
RT 9%0 FD 20 LT 90 FD 20 RT 90 
END 
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TO 4ABCDEF 
REPEAT 4[ABCDEF) 
END 
对 于 图 3-10， 也 可 以 编制 下 列 过 程 ， 
TO_HIJK 
FD 30 RT 9%0 FD 20 IT 90 FD 20 
RT 90 
END 
TO_4HIJK 
REPEAT 4CHIJK3 
END 
最 后 用 一 组 命令 将 两 个 图 形 衔接 起 来 ， 得 到 画 出 整个 图 形 的 
过程 WHOLE， 
TO _ WHOLE 
4ABCDEF 
RT 90 FD ,10 LT 90 BK 30 
4HIJK 
END 
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在 屏幕 上 画 出 下 ， 印 < 
列 各 图 形 ， 
下 MA > 
1 


和 3 


下 


四 、 带 输入 的 过 程 


我 们 已 经 熟悉 了 下 面 这 个 过 程 ， 
TO _TRIl 
REPEAT 3CFD 40 RT 120 
END 
画 出 一 个 边 长 为 40 的 正三 角形 。 这 个 边 长 值 是 常数 40， 如 要 
改变 这 个 三 角形 的 大 小 ， 也 就 是 说 改变 它 的 边 长 ， 必 须 修改 
程序 里 的 “40”。 能 否 将 边 长 值 设 计 为 变量 ， 在 实际 调用 时 
代 以 具体 值 呢 ? 直 OGO 语 言 解决 这 个 问题 用 的 是 带 “ 答 入?” 
的 过 程 。 所 谓 “输入 ”， 就 是 一 种 了 到了 名 字 的 变量 。 于 是 可 
以 编制 一 个 边 长 可 变 的 画 正三 角形 的 过 程 ， 
TO _TRI2 :LENGTH 
REPEAT 3CFD :LENGTH RT 120 
END 
这 个 过 程 与 TRI1 只 有 两 处 不 同 。 一 是 过 程 名 后 增加 了 
一 个 前 带 骨 号 “:” 的 变量 况 LENGTIHI， 其 次 在 过 程 体内 边 
长 “40” 也 换 成 这 个 变量 名 。 注 意 这 个 冒号 是 不 可 节省 略 
的 。 这 个 变量 LENGTH 就 叫 作 过 程 TRI2 的 输入 。 
当 我 们 键入 了 这 个 过 程 后 ， 完 成 了 对 它 的 定义 。 如 果 键 
入 : 
TRI2 30 
就 表示 该 输入 取 值 为 30， 于 是 过 程 晒 就 变 为 : 
REPEAT 3CFD 30 RT 120 
表 出 一 个 边 长 为 30 的 正三 角形 。 如 果 键 入 ; 
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TRI2 50 
别 又 画 出 边 长 为 50 的 正三 角形 。 由 此 可 见 ， 带 输入 的 过 程 要 
灵活 得 多 。 
[ 例 3.5 


画 出 图 3-11 的 图 形 。 司 ] 
首先 定义 一 个 以 边 长 为 输入 的 画 正方 站 
形 的 过 程 , 图 3-11 
TO _ SQ :L 
REPEAT 4CFED :L RT 90) 
END 
图 3-11 整 个 图 形 是 由 四 个 共 一 个 顶点 的 正方 形 所 组 成 ， 
它们 的 边 长 各 不 相同 。 再 编写 一 个 主 过 程 4SQ， 
TO 4SQ 
SQ 10 
SQ 20 
SQ 30 
9Q 40 
END 
就 能 画 出 这 个 图 形 了 。 图 3-12 
[ 例 3.6] 
画 出 图 3-12 的 图 形 。 
这 个 图 形 由 三 个 大 的 三 角形 旋转 而 成 ， 而 每 个 大 三 角形 
又 由 四 个 大 小 不 同 的 三 角形 所 组 成 。 每 个 大 三 角形 可 以 设置 
天 个 输入 变量 。 一 个 是 第 一 条 边 的 方向 角 ， 取 名 为 ANG; 
另 一 个 是 边 长 SIDE。 先 编 每 一 个 过 程 
TO CI :ANG 3:9SIDE 
SETH :ANG 


edge 


REPEAT 3LFD :SIDE RT 120] 


END 
多 次 调用 过 程 CI， 就 可 以 得 到 主 过 程 3CI: 
TO 3CI 


CI 60 10 CI 60 20 CI 60 30 CI 60 40 
CI 180 10 CI 180 20 CI 180 30 CI 180 40 
CI 300 10 CI 300 20 CI 300 30 CI 300 40 
END 


练习 6 
编制 过 
程 ,天 出 下 曾 
列 图 形 ， (2) 
二 广东 
( 
五 、 曲 线 


我 们 知道 ， 一 条 折线 是 由 一 些 直 线段 所 组 成 的 。 如 果 一 
条 折线 是 由 许多 长 度 极 短 的 直线 段 组 成 的 话 ， 那 么 它 看 起 来 
就 象 一 条 曲线 了 。LO6Q 语 言 的 海 危 就 是 用 这 种 方法 画 曲 线 
的 。 于 是 我 们 可 以 用 已 经 学 会 的 方法 画 出 各 种 各 样 的 曲线 
来。 
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[ 例 3.73 
画 一 个 边 长 为 1 步 的 正 360 边 形 。 冯 
TO_CIRCLE1 


REPEAT 360L[FED 1T RT 3 人 
END 本 
这 个 过 程 能 画 出 图 3-13 的 正 360 边 形 , 这 ”加 
个 图 形 实际 上 上 与 一 个 圆 并 没有 多 大 差别 
了 。 今 后 我 们 就 是 用 这 种 方法 来 画 圆 周 和 圆 弧 。 
如 果 要 一 条 60" 的 圆 红 的 话 ， 则 过 程 为 ; 
TO C60 
REPEAT 8600 了 1 RT 3 
通常 ， 可 用 一 个 带 输入 了 的 过 程 画 出 度数 指定 的 贺 
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CD 


弧 来 : 
TO_CIRCLE2 :D 
REPEAT :DIEFD 1 RT 菇 
END 
如 果 键 入 : 
CIRCLE2 30 


就 能 画 出 一 段 30" 的 圆 绝 来 。 

下 面 我 们 来 讨论 如 何 编制 画 出 半径 可 以 任意 指定 的 圆 于 
或 圆 弧 的 过 程 。 

我 们 实际 上 是 正 360 边 形 的 360 条 边 来 近似 地 表示 一 个 贺 
周 ， 在 前 面 把 这 个 正 360 边 形 的 边 长 取 为 常量 1 步 ， 现 在 要 
把 它 改 为 可 变 的 长 度 ， 暂 时 用 ! 表示 。 

因为 ”3601= 2rR 

得 1= ER 色 0.0174R 
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其 中 R 为 半径 。 于 是 编写 一 个 以 半径 R 为 输入 的 过 程 : 
TO_ CIRCLE3 :R 
REPEAT 360[FD :R#0.0174 RT 1] 
END 
假如 你 键入 “CIRCLE3 402”， 就 可 以 画 出 一 个 半径 为 40 的 
圆 来 。 过 程 里 出 现 “FD  :R#0.01742? 的 写法 ， 其 中 《六 2 
是 乘 号 ，R 乘 0.0174 的 结果 可 能 是 小 数 ， 前 面 我 们 已 经 提 和 到 
过 ，FD 命 令 使 海龟 移动 的 步 数 是 小 数 也 是 允许 的 。 
接着 把 过 程 改 写 为 画 出 半径 和 度数 ， 便 可 任意 指定 圆 绝 
的 过 程 
TO CIRCLE :R :D 
REPEAT  :DLFD :R#k0.0174 RT 1] 
END 
例如 取 R =50，D =270， 就 可 以 画 
出 图 3-14 所 示 的 一 段 圆 弧 。 
我 们 通过 以 上 的 几 次 练习 后 可 以 发 
现 ， 尽 管 每 次 都 能 画 出 相当 逼真 的 圆周 或 
圆 弧 来 ， 但 是 海龟 在 画 这 些 图 形 时 的 速度 图 3-14 
却 相 当 缓 慢 。 这 是 因为 海龟 画 一 个 圆周 必须 重复 360 次 完全 
相同 的 动作 才能 完成 。 实 际 上 ， 根 据 计 算 机 屏幕 显示 的 精 
度 ， 一 个 正 36 边 形 看 上 去 已 经 和 一 个 圆 也 差不多 了 。 
设 正 36 边 形 的 边 长 为 17， 用 正 36 边 形 来 近似 表示 一 个 圆 
的 公式 为 ， 
361 = 2rR 
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因此 又 可 把 上 面 的 过 程 改写 为 过 程 ARCR， 
14， 


TO _ ARCR :R :D 

REPEAT :D/10 [FED :Rk0.174 有 RT10] 

END 
其 中 输入 R 和 D 的 意义 同上 面 完 全 一 样 ，“” 表 示 除 法 。 
用 这 个 过 程 画 圆周 ， 只 须 重 复 36 次 相同 的 动作 ， 速 度 明 显 地 
快 得 多 。 

这 里 仍 需 补 充 说 明 的 是 ， 命 令 REPEAT 的 重复 次 数 只 
能 是 正 整数 ， 如 果 当 圆 弧 的 度数 D 不 是 10 的 整数 倍 时 ， 璧 如 
说 当 D = 276 即 圆 弧 为 276" 时 ,D/10=27.6。 因 此 ，REPEAT 
命令 只 能 重复 27 次 ， 画 出 一 段 270" 的 圆 弧 。 为 了 补 画 这 余下 
的 6" 圆 弧 ， 可 以 调用 过 程 CIRCLE。 以 一 段 半径 为 30，276。 
的 圆 弧 为 例 ， 须 用 两 条 命令 : 

ARCR 30 270 
CIRCLE 30 6 
就 能 画 出 需要 的 圆 弧 来 了 。 
如 果 要 按 逆 时 针 方向 画 圆周 或 圆 弧 ， 只 须 在 过 程 体 把 转 . 
向 命令 RT 相 应 地 改 为 LT 即 可 。 


[ 例 3.8] 
利用 上 面 的 过 程 ， 可 以 作出 图 3-15 所 示 的 三 环 图 。 
TO 3RING 
CIRCLE 30 
RT 90 
PTU 
FD 15 
二 图 3-15 
PD 
CIRCLE 80 
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工 工 90 
P U 
FD 10 
P D 
CIRCLE 30 
END 

工 例 3.9] 

画 出 图 3-16(a) 的 图 案 。 


和 wy 有 
《2 人 二) 
3-16 


{c) 


经 过 分 析 ， 可 以 发 现 图 3-16(a) 的 图 形 是 由 图 3-16(b) 
喷 示 的 曲线 四 边 形 旋转 8 次 而 成 ,而 后 者 又 可 由 图 3-16(c) 的 
曲线 旋转 4 次 得 到 。 
因此 先 编 写 画 出 图 3-16(c) 的 过 程 ， 
TO _ ARC 
ARCR 10 90 
ARCL 10 90 
ENP 
据 此 可 以 画 出 图 3-16(b)， 过 程 为 
TO ARC4L 
REPEAT 4[ARC LT 90] 
END 
最 后 再 旋转 8 次 ， 得 到 图 3-16(a)， 过 程 如 下 4 


“4 


TO SPINARC1 
REPEAT 8[ARC4 RT 45] 


END 
[ 例 3.10] 下 
画 出 一 汞 梅花 图 案 〈 图 3-17) 。 图 3-17 


这 个 梅花 图 形 由 五 段 曲线 组 成 ， 每 一 段 曲线 是 半径 相同 
的 半圆 ， 首 尾 相 接 ， 一 个 点 既是 上 一 段 半圆 的 终点 ， 同 时 也 
是 下 一 段 半 圆 的 起 点 ， 海 龟 在 这 种 转折 点 上 亚 左 铸 108*。 因 
此 ， 编 写 这 个 过 程 是 很 容易 的 。 
TO 5P 
REPEAT 人 T 5[ARCR 15 180 LT 1082 
END 
cs. 了 
画 - 一 条 帆船 〈 图 3-18) 。 一 一 一 一 -一 
按照 模块 化 程序 设计 ， 先 把 图 形 分 成 图 3-18 
波浪 、 船 身 和 船 帆 三 个 部 分 。 
波浪 由 5 条 首尾 连接 的 弧 线 所 组 成 ， 它 的 过 程 是 
TO WAVE 
REPEAT 5[ARCR 5 90 ARCL 5 30] 
END 
船 身 是 一 个 梯形 ， 其 过 程 为 
TO _ BOAD 
RT 90 
FD 30 
LT 60 
FED 10 
革 了 120 
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FED 40 

LT 120 

FD 10 

END 
船山 用 一 个 正三 角形 ， 过 程 害 义 为 

TO SAIL 

REPEAT 3LFD 30 RT 120] 

END， 
最 后 ， 把 这 三 个 过 程 合理 地 组 织 起 来 ， 编 成 一 个 过 程 ， 画 出 
整个 图 形 来 〈 图 3-18) 。 


TO WA 
有 人 工 45 
WAVE 

下 下 45 
P U 

广 了 D 5 
工 工 90 
FD 50 
有 信 工 90 
PD 
BOAD 

B 开 10 
工 工 60 
FD 20 
工 工 90 
SAIL 
END 
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[ 例 3.12] AT 
画 一 个 带 两 片 树 叶 的 苹果 (图 3-19)。 、 
这 个 图 形 可 分 成 三 个 部 分 画 。 没 有 叶 
子 的 苹果 , 过 程 名 APPLE 1 苹果 叶 梗 处 
的 凹陷 ， 用 过 程 HOLLE 画 出 ， 画 叶 醒 和 2 
两 片 叶子 的 过 程 叫 LEAF。 三 个 过 程 如 
下 : 


-3-19 


TO APPLE1 
ARCR 20 90 
荆 工 90 
ARCR 20 90 
ARCR 40 270 
END 


TO 再 OLLE 
ARCR 30 30 
R 工 180 
ARCL 30 60 
及 工 180 
ARCR 30 30 
END 


TO LEAEF 
F D 20 
ARCR 20 90 
及 工 90 
ARCR 20 180 
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及 工 90 
ARCR 20 :90 
END 
最 后 编写 一 个 主 过 程 APPLE， 把 这 三 个 子 过 程 适当 地 . 
组 织 志 来 ， 画 出 一 只 完整 的 莹 果 来 。 


工 O APPLE 
及 工 45 
APPLE LI 

ARCR 20 90 
二 工 135 

了 政 10 

二 工 90 
HOLELE 

及 工 90 

匡 AF 

END 


主 过程 APPLE 第 2 行 “RT 45” 命 令 将 莹 果 的 位 置 放 
正 。 第 4、5 两 行 的 命令 *ARCR 20 90 LT 1352” 在 过 
程 APPLE 1 画 出 没有 树叶 的 苹果 后 ， 让 海龟 回 到 出 发 时 的 
位 置 ， 且 头 部 朝向 正 上 方 。 第 6 、7 两 行 的 *BK 10 LT 902 
让 海龟 走 到 四 陷 部 分 的 中 央 ， 并 调整 方向 。 倒 数 第 3 行 的 
“RT 90” 在 画 好 凹陷 部 分 后 使 海 色 头 部 朝 上 ， 准 备 画 叶 - 
子 。 
练习 了 

编写 过 程 ， 分 别 画 出 下 列 各 图 形 ， 
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(1) (2 


oO 个 


介 


(3) 


过 程 以 “TO” 开 始 ， 以 “END” 缚 束 ; 
过 程 键入 完毕 ， 按 Ctl- Ci 
过 程 用 其 名 字 调用 ， 并 同时 填 上 输 入 量 〈 如 有 的 


编辑 键 和 编辑 命令 ， 

ED “进入 编辑 ; 

ESC 光标 左 移 一 格 ， 且 抹 去 光标 处 的 字符 ; 
女 光标 左 移 一 格 ， 但 不 抹 去 任何 字符 ; 
[> 光标 右 移 一 格 ， 也 不 抹 去 任何 字符 ; 
Ctrl-A 光标 移 至 当前 行 首 ; 


el 。 


Ctrl-B 
Ctrl-C 
Ctrl-D 


Ctrl- 卫 
Ctrl-E 
Cttl-G 
Ctrl- 瑟 
Ctrl- 开 
Ctrl-M 
Ctrl-N 
Ctrl-O 


Ctrl-P 
Ctrl-TU 
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光标 移 至 第 一 行 首 ; 

退出 编辑 方式 ， 认 可 所 有 键入 内 容 ; 
删除 光标 处 字符 ， 光 标 在 行 末 时 ， 将 本 行 
和 下 一 行 合并 ; 

光标 移 至 当前 行 末 ; 
光标 移 至 最 后 一 行 末 ; 

退出 编辑 方式 ， 放 弃 已 作 的 输入 

同 <; 

删除 当前 行 光 标 以 后 所 有 字符 ; 

同 Returmn 键 ; 

光标 下 移 一 行 ; 

在 光标 右 侧 生成 一 个 新 的 空 行 ， 光 标 位 置 
不 变 ; 

光标 上 移 一 行 ; 

同人 。 


第 四 章 ”变量 与 表达 式 


一 、 数 及 其 运算 


平时 我 们 非常 熟悉 、 天 天 接触 的 整数 、 小 数 ， 在 LOGO 
语言 里 都 能 使 用 。 例 如 ， 整 数 ， 
12 -8763 0 45 304 -12 
小 数 
-0.07 1.54 3.1416 。3 一 87.02 
都 可 以 出 现在 LOGO 语 言 的 命令 和 程序 里 。 在 前 几 章 我 们 已 
经 遇 到 过 。 
在 许多 计算 机 语言 里 ,往往 把 小 数 叫 做 实数 ,LOGO 语 言 
也 不 例外 。 要 注意 的 是 ,计算 机 语言 里 的 实数 是 相对 于 整数 而 
言 的 ， 与 数学 教科 书 里 的 实数 概念 并 不 一 样 。 因 此 ， 和 大 多 
数 计算 机 语言 一 样 ，LOGO 语 言 里 的 数 可 以 分 成 两 大 类 ， 就 
是 整数 和 实数 。 实 数 除了 可 以 写成 小 数 外 ， 还 可 以 用 指数 形 
式 来 表示 。 指 数 形式 又 称 为 科学 记 数 法 。 例 如 ， 
3.52Es% 表示 3.52x 103， 即 3520; 
15.2E2 表示 15.2x102， 即 1520; 
-0.23E3 表示 -0.23x103， 即 一 230; 
1.4 蕊 2 表示 1.4Xx102， 即 140 
4N2 表示 4X10-?， 即 0.04 
-5.1N4 表示 -5.1x10-4， 即 -0.00051。 
指数 表示 的 一 般 形式 为 ， 
。53 。 


尾数 互 或 N 指数 
尾数 可 以 是 整数 或 普通 的 十 进 制 小 数 ， 可 以 是 正 数 也 可 以 是 
负数 ， 当 它 为 正 数 时 ， 前 塞 的 “+?” 号 可 以 省 略 ; 而 指数 则 
只 允许 是 正 整 数 ， 符 号 为 下 时 ， 指 数 取 正 值 ， 符 号 为 人 时 ， 
指数 取 负 值 。 
指数 表示 法 特别 适用 于 一 些 绝对 值 特 草 大 的 或 特别 小 的 
数 ， 书 写 时 很 简短 。 例 如 ， 
29980000000 ”可 以 写成 2.998 匡 10 
0.00000000048 ”可 以 写成 4.8N10 
LOSO 语 言 的 整数 的 值 是 有 范围 限制 的 ， 即 书写 的 整数 
上 下 界限 为 -23 一 23!--1。 也 就 是 说 ， 最 大 的 整数 是 
2147483647， 最 小 的 整数 是 -2147483648， 即 总 共有 
4294967296 个 不 同 的 整数 。 超 出 这 个 范围 的 整数 就 无 法 表示 
了 ， 必 须 用 实数 来 表示 。 实 数 表示 具有 7 位 有 效 数 字 的 精 
度 ， 绝 对 值 范 围 为 10 38 一 1088。 
通常 的 四 则 运算 加 、 减 , 乘 、 除 分 别 用 符号 + 、 一 、* 、/ 
表示 。 这 些 运 算 符 号 再 加 上 括号 可 以 构成 数学 式 子 ， 叫 做 表 
达 式 。 例 如 ， 
2*3 1.2-3 (6+5)*4/3 一 5*7/6 
等 都 是 LOGO 语 言 的 表达 式 。 注 意 ， 其 中 乘 号 和 除 号 与 平时 
使 用 的 写法 不 一 样 ， 但 是 各 种 计算 机 语言 都 是 统一 地 使 用 这 
些 符号 。 


二 、 输 出 命令 


LOGO 请 言 的 程序 或 命令 要 显示 数 或 变量 的 值 ， 以 及 表 
e。 54。 


达 式 运算 的 结果 ， 需 要 用 到 输出 偷 令 。LOGO 话 诗 的 输出 命 
令 有 两 种 。 

1， 输出 命令 PRINT 

PRINT 命 令 显 示 常 数 、 变 量 或 表达 式 的 值 。 它 的 简写 形 
式 为 PR。 详 你 键入 下 列 各 命令 ， 观 察 显示 的 内 容 与 下 而 是 
否 一 致 ， 这 对 你 理解 掌握 PRINT 命 令 是 有 帮助 的 。 


命 令 显示 内 容 
PRINT 3 3 
PRINT 3*5.1 15.3 
PRINT -5.1N4 一 5.1N4 
PRINT 《〈13-2)72 5.5 


当 FRINT 命 令 的 输 册 对象 多 于 1 个 时 ,必须 用 圆 括号 将 
它 两 头 括 超 来。 例如， 
CPRINT 12 34 5) 
这 条 命令 就 在 屏幕 上 显示 ; 
J2 34 5 
2 不 换行 输出 命令 PRINT 1I 
先 来 举 一 个 例子 ， 请 你 定义 一 个 过 程 
TO EX 
PRINT 
(PRINT 
PRINTTI 
PRINT 
PRINT 
END 
当 你 键入 过 程 名 “EX” 以 后 ， 则 见 到 显示 内 容 为 ; 
3 


8) 


-1 中 四 心 oo 


。55 。 


4 8 
56 
7 
? 
我 们 可 以 看 出 ， 用 PRINT 命令 输出 数据 时 ， 每 一 个 PRINT 
命令 输出 的 内 容 都 占据 一 行 ， 有 几 个 PRINT 命令 就 输出 几 
行 。 而 一 个 PRINT1 命 令 输出 数据 后 ， 它 后 面 的 命令 输出 的 
内 容 就 不 换行 直接 显示 在 它 的 后 面 。 换 名 话说 ，PRINT 命 令 
是 换行 输出 ， 而 PRINT1 命令 不 换行 输出 。 最 后 显示 的 那个 
问号 “? ”， 则 是 LOGO 的 系统 提示 符 ， 与 输出 命令 无 关 ， 
这 是 我 们 以 前 已 经 告诉 过 你 的 。 
3. 打印 机 输出 
到 现在 为 止 ， 本 书 的 氢 述 和 例子 中 画 出 的 图 形 以 及 计算 
结果 都 是 显示 在 屏幕 上 的 。 屏 幕 上 的 图 象 一 旦 消失 就 再 无 踪 
影 ， 为 了 长 久 地 保存 图 形 和 计算 结果 ， 需 要 利用 打印 机 进行 
输出 。 打 印 机 输出 的 具体 步骤 是 ， 
1. 装 好 打印 纸 ， 捅 好 打印 机 电源 线 ; 
2. 接 通 打印 机 电源 开关 
3. 键入 命令 ， 
OUTDEV 14 
PRINT CHAR 17a 
于 是 ， 整 个 屏幕 上 显示 的 内 容 全 部 在 打印 机 上 显示 出 来 
了 。 以 后 ， 如 果 需 要 打印 新 的 内 容 ， 那 末 你 只 须 键 入 第 二 条 
命令 “PRINT CHAR 172”， 又 能 输出 一 幅 屏幕 的 内 容 。 
如 果 你 不 想 再 打印 输出 了 ， 则 可 以 键入 命令 : 
OUTDEV 04 
输出 又 恢复 原来 的 状态 。 假 定 以 后 你 又 需要 进行 屏幕 打印 
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了 ， 只 要 再 一 次 键入 这 两 条 命令 
OUTDEV 1 
PRINT CHAR 173 

练习 8 

指出 下 面 的 过 程 的 显示 结果 : 
TO EX8 
PRINT 12 
(PRINT 34 5 67) 
了 PRINT1 8 
PRINT 9 
PRINT1 001 
PRINT1 002 
PRINT ”003 
END 








三 、 变 量 和 赋值 


本 章 第 一 节 介 绍 的 整数 和 实数 及 由 它们 组 成 的 表达 式 的 
值 是 无 法 改变 的 。 在 LOGO 语 言 的 命令 和 程序 中 经 常 还 需要 
用 到 一 些 值 可 以 改变 的 量 ， 这 种 值 允 许 变化 的 量 叫做 变量 。 
变量 是 用 符号 来 表示 的 ， 就 象 我 们 学 习 代 数 时 用 字母 来 代表 
数 一 样 。 这 种 表示 变量 的 符号 叫做 变量 的 名 字 ， 给 变量 选择 
一 个 合适 的 名 字 叫 做 取 名 或 命名 。 通 常 我 们 可 以 在 程序 执行 
中 通过 使 用 有 关 的 命令 把 值 送 给 变量 ， 叫 做 给 变量 赋值 。 请 
看 下 面 一 个 赋值 的 例子 : 

MAKE “X 6 
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PRINT :X 
这 里 的 “X 就 是 变量 名 。MAKE 命令 就 是 赋值 命令 ， 专 门 用 
来 给 变量 赋值 的 。 这 个 MAKE 命 令 表 示 把 数值 6 赋值 给 变 
量 X。 后 一 句 PRINT 命 令 则 把 变量 X 的 内 容 显示 出 来 。 
必须 指出 的 是 ， 在 MAKE 命 令 中 变量 名 “X2” 前 面 有 一 
个 双 引 号 “42”， 这 是 不 能 省 略 的 。 也 就 是 说 ， 变 量 名 必须 
以 ““” 开 头 。 而 PRINT 命令 中 变量 名 “X2 前 面 则 有 一 个 
时 号 “: ”，“:X2 表示 变量 又 的 内 容 。 
变量 命名 的 规则 很 简单 ， 以 ““2” 开 头 ， 后 面 是 若干 个 
字符 。 例 如 ，“X、2”Y1、7*1P2、7403 等 都 可 以 用 作 变 量 名 。 
但 是 ， 变 量 名 中 不 允许 出 现下 列 各 种 字符 ， 
+--* 人 =( )[3: > 雪 空 格 
除了 在 变量 名 前 面 加 上 冒号 外 ，PRINT 命令 还 可 以 和 
THING 命 令 结合 起 来 显示 变量 的 值 。THING 命令 的 格式 
为 : 
THING 变量 名 
也 表示 变量 X 的 内 容 。 例 如 ， 
MAKE ZA 12 
PRINT THING 7ZA 
则 显示 变量 A 的 值 12。 
注意 THING 命 令 的 也 是 变量 名 ， 即 前 而 应 带 有 冒号 。 
六 此 “THING“A” 和 “:A” 是 完全 等 价 的 ， 都 表示 变量 
的 内 容 。 
MAKB ZX 2 
PRINT  :XX 
MAKE ?ZX :X+1 
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PRINT  :X 
执行 这 几 条 命令 时 ， 先 后 两 次 显示 变量 X 的 内 容 ， 第 一 次 是 
2 ， 这 是 第 一 个 MAKE 命 令 赋值 给 X 的 ;后 一 次 显示 3， 这 
是 第 二 个 MAKE 命 令 将 “:X+12?. 即 变量 又 的 当前 值 2 加 上 1 
以 后 重新 赋值 给 变量 X 的 缘故 。 
由 此 可见， 变量 通过 MAKE 命 令 改 变 了 值 ; 变量 和 当 数 
一 样 组 成 表达 式 参 与 运算 。 又 如 ， 
MARKE 7“Y 2 
MAKE 7“X :YYx3 二 +:Y 
PRINT  :Y 
PRINT  :X 
这 段 程序 先后 显示 2 和 8 。 
我 们 在 第 三 章 介绍 过 带 输入 的 过 程 。 过 程 的 输入 本 质 上 
也 是 一 种 变量 ， 称 为 形式 变量 。 过 程 被 调用 时 ， 须 用 常数 、 
变量 或 表达 式 来 取代 输入 的 位 置 。 
[ 例 4.1] 
TO BOX :X 
REPEAT 4CFD :X RT 90] 
END 
TO RE 
MAKE 7“X 30 
BOX :X 
MAKR YX :X+10 
BOX :X 
END 
这 里 的 过 程 RE 调用 过 程 BOX。 过 程 BOX 带 有 一 个 输入 
就 是 :X。 过 程 RE 中 先 用 赋值 命令 给 变量 X 赋 以 值 30， 然 后 
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调用 过 程 BOX 画 出 一 个 边 长 30 的 正方 形 。 接 着 又 将 变量 又 的 
当前 值 加 上 10 后 又 重新 赋值 给 X， 再 一 次 调用 过 程 BOX， 此 
时 往 的 值 是 40， 因 此 画 出 边 长 为 40 的 正方 形 。 


注意 下面 几 个 MAKE 命 令 是 错误 的 : 
MAKE ZN 一 :M 
MAKE YN +:M 
MAKE ZN * :M 


对 于 6-:M2 可 以 写 手 成 46:M# 一 12 或 4:Mx#( 一 1)”。 
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判别 下 面 一 些 命令 ， 哪 些 是 正确 的 ? 哪些 是 错误 的 
(1)MAKE :X 3 

(2 )MAKE“X-3 20 

(3)MAKE X=5 

(4)X=0 

(5)MAKE“X 2 

(6)MAKE“Y 3 

(7 )MAKE 4X :又 + :Y 


ASS 
QH 


四 、 小 


1. LOGO 记 数 法 
(1 ) 整 数 和 小 数 写法 与 通常 的 完全 相同 ; 
(2 ) 指 数 记 数 法 的 格式 。 匡 和 N 分 别 表示 正 指数 和 负 指 


尾数 下 指数 
尾数 N 指数 
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2 输出 命令 有 两 种 ， 换 行 输 出 PRINT 和 不 换行 输出 
PRINT1。 
3. 变量 是 值 可 以 改变 的 量 。 变 量 名 以 “"” 开 头 ,变量 
内 容 用 “:? 开头 。 
4. 赋值 命令 的 格式 
MAKE 变量 名 表达 式 
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先 看 下 面 的 例子 
键入 过 程 COD: 
TO COD :X 
IE :X>0 THEN PRINT 3 ELSE PRINT 一 3 

END 

现在 键入 COD 4a 

屏 医 显示 3 

再 键入 COD -7a4l 

屏幕 显示 一 3 

下 面 我 们 来 解释 过 程 中 出 现 的 命令 ; 

IF :X>0 THEN PRINT 3 ELSE PRINT -3 
这 个 命令 称 为 条 件 命令 。 
其 中 “:X>0 称 为 测试 条 件 。 

对 一 个 测试 条 件 来 说 ， 只 存在 两 种 结果 ， 即 该 条 件 成 立 
或 者 不 成 立 。 例 如 ， 当 :X 的 值 为 3 时 ， 由 于 3 大 于 0， 记 
以 测试 条 件 :又 >0 成 立 f 而 当 :X 的 值 为 -7 时 ， 由 于 -7 小 于 
0 ， 所 以 测试 条 件 :X>0 就 不 成 立 。 若 测试 条 件 成 立 ， 我 们 
也 称 条 件 为 真 ， 若 测试 条 件 不 成 立 ， 称 条 件 为 假 。 

整个 条 件 命令 的 意思 是 ; 
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假使 测试 条 件 成 立 ， 则 显示 “3”; 否则 显示 “一 3”。 
因此 键入 “COD 32 时 就 显示 3， 键 入 “COD 一 7?2 
时 就 显示 “一 3?。 
条 和 件 语句 前 一 般 格式 为 : 
条 


IF 测试 条 件 THEN 若干 条 命令 ELSE 闭 
于 条 命令 


例如 ， 
IF :DIRECT=1 THEN RT 90 ELSE LT 
90 这 里 的 :DIRECT = 1 是 测试 条 个; 
RT 90 es 
LT 90 基 测 试 条 件 不 成 立时 所 执行 的 命令 
Re 
TO _ DBOX :DIRECT 
REPEAT 4CFD 30 IF : DIRECT=1 THEN 
RT 930 ELSE LT 90] 
END 
键入 DBOX 319 按 顺 时 针 方 向 画 出 一 个 边 长 为 30 步 的 正 
方形 。 键 入 “DBOX 24 ”。 按 道 时 针 方向 画 出 一 个 边 长 为 
30 步 的 正方 形 。 
下 面 的 DBOX1 过 程 与 上 上 面 的 DBOX 过 程 具有 相同 的 功 





会 号 


， 
TO PDBOX1L :DIRECT 
了 :DIRECT=1 THEN REPEAT 4CFD 30 
RT 90] 
了 LSE REPEAT 4CFD 30 
LT 90] 
例如 : 
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TO PABS :M 

IF :M>0 THEN MAKE ZN :M ELSE 

MAKE /N :Mxy*-1 

PRINT  :N 

END 
了 PABS 过 程 用 来 输出 绝对 值 ， 绝 对 值 存 放 在 变量 "N7“ 中 。 

注意 ， 在 这 个 例子 中 ,IF 命令 下 面 接着 的 是 一 句 PRINT 

命令 。 因 此 当 IF 命令 执行 完 后 就 接着 执行 它 下 面 的 一 条 命 
令 ， 即 PRINT 命 令 。 

若 键入 "PABS 34 /， 这 时 :M 的 值 为 3 ，IF 命令 中 的 
测试 条 件 :M>0 就 成 立 ， 因 此 实行 MAKE “N :M， 这 样 条 
件 命令 就 执行 完了 ， 于 是 接着 去 执行 紧 接 在 IF 命令 下 面 的 一 
条 命令 ， 即 PRINT 命 令 。 

同样 ， 若 键入 /PABS -34 “， 这 时 :M 的 值 为 -3， JIF 
命令 中 的 测试 条 件 :M>0 不 成 立 ， 因 此 实行 MAKE 'N : 
M# - 1， 这样 条 件 命令 就 执行 完了 ， 于 是 接着 执行 IF 命令 
下 面 的 PRINT 命 令 ， 

从 这 个 例子 可 以 看 出 ， 尽 管 IF 命令 由 于 测试 条 件 的 成 立 
与 否 ， 而 有 不 同 的 事情 要 做 ， 但 当 IF 命 令 执 行 完 后 ， 总 是 接 
着 执行 紧 接 在 IF 命令 后 面 的 命令 的 。( 在 以 后 叙述 OUTPUT 
命令 时 ， 将 指出 另 一 种 情况 ) 。 

IF 命令 也 可 以 设 有 ELSE 部 分 ， 其 格式 为 
IF 测试 条 件 THEN 若干 条 命令 
或 

IE 测试 条 件 若干 条 命令 
当 测 试 条 件 成 立时 ， 执 行 若干 条 命令 ; 不成立 时， 就 直接 执 
行 I 命 令 的 下 一 条 命令 。 例 如 ， 
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TO COD1T :和 

[FE = 二 了 了 RNT -六 
PRINT 3 

END 

键入 "COD 1 14 7， 则 显示 : 1 

若 键 入 "COD 1 54 7， 则 显示 : 3 

在 IFE…THEN…ELSE 形 式 的 命令 中 ， 可 以 省 去 THEN ， 
例如 下 面 的 二 条 了 IF 命令 具有 相同 的 功能 ， 

IF :X>0THEN PRINT :又 PRINT :X+1ELSE 
PRINT :X-1 PRINT :X 一 2 
IF :X>0 PRINT :XPRINT :X+1 EL9SE PRI- 
NT :X-1 PRINT :和 一 2 
但 注意 ， 不 能 将 ELSE 和 省 去 ， 例 如 对 于 
IF :X>0 PRINT :X PRINT :X+T PRINT 
:X 一 1 PRINT :和 一 2 
命令 ， 计 算 机 理解 为 
IF :X>0 THEN PRINT :X PRINT. :和 X+1I 
PRINT :X-1 PRINT :和 一 2 
即 当 :和 >0 成 立时 ， 执 行 后 面 的 4 条 PRINT 命令 ; :X>0 
不 成 立时 ， 则 不 执行 后 面 的 4 条 PRINT 命 令 。 

这 里 再 介绍 一 下 关系 表达 式 的 概念 。 测 试 条 件 中 ， 如 
:A>>2、:A 一 :B+1、: 又 = :YY 水 2、:P#k3>(: 太 -1) 关 2 等 
式 子 称 为 关系 表达 式 ， 而 符号 “>”、“<”、“=》” 称 为 
关系 符 。 注 意 ，LOGO 中 设 有 “<< =”“>=” 这 样 的 关系 
符 ， 这 与 BASIC 语 言 不 一 样 。 

在 条 件 命令 中 还 可 以 将 几 个 关系 符 组 合 在 一 起 进行 测 
试 。 这 要 用 到 三 个 逻辑 运算 符 ; 
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ALLOF、ANYOF 和 NDT 
例如 ， 

IF ALLOF (:X<4) (:X>1)THEN PRINT 7 ELSE 
PRINT 5 其 中 ALLOF CS (:X> 1) 表示 对 两 个 关 
系 式 :X<4 和 :X>1 进行 测试 。 若 :X 的 值 癌 时 使 这 两 个 关系 
式 成 立 ， 则 测试 条 件 ALLOEF X<4) (:X>1) 成 立 ; 
若 两 个 关系 式 中 只 要 有 一 个 不 成 立 ， 则 测试 条 件 就 不 成 立 。 

同样 ， 若 测试 条 件 中 有 三 个 关系 式 ， 例 如 ， 

ALLOF (:A>1) (:A+:B<1) (:B=:C) 
则 只 有 当 三 个 关系 式 :A>1、:A+:B<1、:B = :C 全 都 成 立 
峙 ， 测 试 条 件 才 成 立 ， 否 则 就 不 成 立 。 
算 符 ANYOF 与 ALLOE 相 反 ， 例 如 测试 条 件 为 : 
ANYOF (:A>1) (:A+:B<1》 (:B=:C) 
才 ， 三 个 关系 式 中 只 要 有 一 个 成 立 ， 整 个 测试 条 件 就 成 立 。 
只 有 当 三 个 关系 式 都 不 成 立时 ， 测 试 条 任 才 不 成 立 。 
关于 算 符 NOT， 请 看 下 面 的 例子 。 
若 有 测试 条 件 
NOT (:X=1) 
它 表 示 当 关系 式 :X=1 成 立时 ， 测 试 条 件 NOT(: 入 ='1) 不 
成 立 ! 而 当 :X = 1 不 成 立时 ， 测 试 条 件 NOT (:X=1) 成 
了 立 。 
如 果 用 真 和 假 来 表示 一 个 关系 式 的 结果 ， 那 束 
NOT 真 ， 结 果 为 假 
NOT 假 ， 结 果 为 真 。 
例如 ， 
TO TALLO :X 
IF ALLOF (:X>0) (:X<5) THEN PRINT 5 
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ELSE PRINT -5 
END 
键入 TALLO 4 
显示 5 
键入 TALLO 7 
显示 -5 
例如 ， 
TO TANYO :X 
IF ANYORF (:X=0) (:X>5) THEN PRINT 5 
ELSE PRINT 7 
END 
键入 TANYO 7 
显示 5 
键入 TANYO 4 
显示 7 
例如 ， 
TO TNOT :X 
IF NOT (:X>0) THEN PRINT 5 ELSE 
PRINT 7 
END 
键入 TNOT 1 
.显示 7 
键入 TNOT -3 
显示 5 
ALLOF、ANYOF 和 NOT 可 以 混合 使 用 
例如 : 
TO MIX :X 
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IF NOT (ALLOF NOT(:X>4)(:X>2) THEN 
PRINT 3 ELSE PRINT 9 
END 
这 里 IF 命令 中 的 测试 条 件 就 有 NOT 和 ALLOF 混合 使 用 的 情 
况 。 NOT (AUDF NOT (:X>4 (:X>9) 
我 们 看 一 下 , 当 :X 页 
值 为 3 时 ， 测 试 条 件 是 
否 成 立 。 
结果 测试 条 件 为 假 ， 因 
此 当 键 入 “MIX 347 
时 ， 显 示 9 。 
注意 ， 算 符 NOT 的 运算 对 象 只 有 一 个 ， 而 ALLOF 和 
ANYOEF 的 运算 对 象 有 两 个 或 本 个 以 上 。 为 了 使 每 个 算 符 的 
运算 对 象 区 分 清楚 ， 我 们 可 用 括号 将 它们 分 隔 开 来 ， 如 同上 
面 举 的 例子 那 桩 。 
我 们 也 可 将 测试 条 件 的 结果 进行 输出 。 当 测试 条 件 为 真 
时 ， 测 试 条 件 的 输出 为 “TRUE”， 当 测 试 条 件 为 假 时 ， 测 
试 条件 的 输出 为 “FALSE2” 。 
例如 ， 键 入 
PRINT “5>3) 
则 显示 TRUE 
而 键入 
PRINT (2 之 3) 
则 显示 FALSE 
义 如 MAKE /MX 5 
PRINT :X+1=4 
显示 FALSE 
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1. 已 知 过 程 
TO EX10 :X 
IF :X=0 THFN PRINT 1 ELSE PRINT 2 
PRINT 3 
END 
键入 EX10 7 将 显示 什么 ? 

2. 给 出 下 面 式 子 的 逻辑 值 
ALLOF (ANYOF(NOT(I>>3)3+2>4)2 一 1=1》 


二 、STOP 命令 


STOP 命令 的 功能 是 使 过 程 停止 执行 。 看 下 面 的 过 程 : 
TO TST ;:N 
IF :N>0 THEN PRINT 100 ELSE STOP 
PRINT 50 
END 
键入 TST 50 
显示 100 
50 

键入 TST -3 

没 显 示 。 

没 显示 的 原因 是 ， 当 :N 的 值 为 -3 时 ， 就 执行 ELSE 后 
面 的 STOP 命 令 ， 过 程 就 停止 执行 ， 因 此 IF 命令 下 面 的 命令 
-PRINT 507 也 就 不 可 能 被 执行 了 。 

我 们 说 的 是 STOP 命令 使 过 程 停 止 执行 ,实际 上 ,更 全 面 


四 69:。 


地 应 该 是 ， 执 行 STOP 命 令 后 只 停止 STOP 语句 所 在 的 当前 
过 程 的 执行 ， 而 接着 还 要 返回 调用 当前 过 程 的 主 过 程 去 继续 
执行 。 仅 当 没有 主 过 程 要 返回 时 ， 本 过 程 停止 执行 后 就 不 再 
继续 了 。 煞 悉 BASIC 语 言 的 读者 请 注意 ， 这 里 的 STOP 命 令 
与 BASIC 语 言 中 的 STOP 语句 有 了 明显 的 区 别 ， 不 要 混淆 。 
[ 例 5.1 
下 面 两 个 过 程 MAINP 是 主 过 程 ，BOX 是 子 过 程 ， 主 过 
程 调用 子 过 程 ， 子 过 程 执行 到 STOP 命 令 或 END 命令 时 返回 
到 主 过 程 ， 如 图 5-1 所 示 
TO MAINP :X 
BOX :X 
PRINT :XX 
END 
TO BOX :又 
IF :X>0 THEN REPEAT 4CFD 30 RT 90n 
ELSE STOP 


上 ND 


M : TO BOX :六 
键入 : SSTOP 


MAINP 3J 
则 显示 边 长 为 30 步 
的 正方 形 和 数字 
3 ， 这 是 因为 由 主 
过 程 中 的 BOX :X 
转 到 执行 子 过 程 BOX :X, 由 于 :X 的 值 为 3 ,测试 条 件 :X> 
0 成 立 ， 于 是 执行 REPEAT 语句 画 出 正方 形 ， 然 后 执行 IF 
命令 下 面 的 一 条 命令 ， 即 END 命 令 ， 于 是 返回 到 主 过 程 中 
BOX :X 命 令 的 下 一 条 命令 ， 即 PRINT :X 命 令 ， 显 示 出 :X 
e70。 





的 值 了 。 
如 果 键 入 的 是 ， MAINBP -34 
显示 “3 。 这 是 因为 主 过 程 转 到 子 过 程 执行 到 下 命令 时 ， 测 
试 条 件 :X>0 不 成 立 ， 于 是 执行 ELSE 后 的 命令 ， 即 STOP 命 
令 , 它 停止 子 过 程 BOX 的 执行 ,返回 到 主 过 程 中 的 PRINT:X 
命令 继续 执行 ， 显 示 出 3 。 由 于 子 过 程 中 的 下 命令 中 的 
REPEAT 命 令 没 被 执行 ， 所 以 正方 形 就 没 能 画 出 来 。 
由 这 个 例子 可 看 出 ，STOP 命令 的 实质 是 从 子 过 程 返回 
到 主 过 程 ， 并 且 继 续 执 行 主 过 程 。 同 样 ，END 命 令 也 从 子 
过 程 返回 到 主 过程 ， 一 个 过 程 中 只 能 用 一 个 END 命令， 但 
可 以 用 多 个 STOP 命 令 ， 例 如 ， 
TO SUB1 :X :Y 
IF :X>:Y THEN PRINT :X ELSE STOP 
IF :X=:Y THEN PRINT 2#*:X ELSE STOP 
FND 
这 个 过 程 有 两 个 9TOP 命令 。 当 然 在 每 次 具体 运行 时 ， 其 中 
只 有 一 个 TOP 语句 有 可 能 被 执行 。 
练习 11 
已 知 过 程 
TO EX11 :X 
IF :X=5 THEN PRINT 2k:XFLSE STOP 
PRINT :X 
END 
藻 键入 EX11 5 显示 什么 ? 
车 键 入 EX11 0 显示 什么 ? 
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三 、 输 出 命 全 OUTPUT 及 过 程 的 调用 


我 们 先 来 看 一 个 过 程 ， 
TO ABS1 :X 
IE :X>0THEN PRINT :XELSE PRINT -: 蕊 
END 
它 的 功能 是 显示 变量 :又 的 绝对 值 
键入 ABS1 34| 


则 显示 3 

键入 ABS1 一 34 

也 显示 3 

再 看 一 个 过 程 
TO ADD1 :X :Y 
PRINT :X+:Y 
END 


它 的 功能 是 将 变量 :X 和 :Y 相 加 ， 并 且 显 示 所 得 的 和 。 
键入 ADD1 3 54 


则 显示 8 
顺便 提 一 下 ， 当 我 们 要 求 3 和 -- 5 的 和 时 ， 不 能 按 下 面 
的 方法 键入 : 
ADD1 3. -54 


这 时 ， 将 显示 如 下 的 出 错 信息 : 
ADD1 NEEDS MORE INPUT9 
即 表 示 ADD 1 需要 的 输入 还 不 够 。 其 原因 是 ，LOGO 系 统 将 


“3 ”一 5” 当 作 一 个 表达 式 看 待 ， 即 看 成 是 3 - 5。 于 是 上 述 
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的 键入 就 相当 于 键入 ADD 1 - 2， 而 过 程 ADD 1 需要 有 两 个 
数 作为 输入 。 改 正 的 办 法 是 将 - 5 放 在 括号 里 面 ， 即 应 键入 : 
ADD1 3 (-5)4 
显示 一 2 
现在 的 问题 是 ， 我 们 能 不 能 编写 一 个 过 程 ， 它 能 够 求 出 
现 个 数 的 绝对 值 之 和 。 你 可 能 会 这 样 想 ， 编 一 个 过 程 ， 让 它 
调用 求 绝 对 值 的 过 程 ， 例 如 ， 
TO ABSADD1 :X :Y 
PRINT ABS1 :X+ABS1 :Y 
END 
ABSADD 1 过 程 调用 ABS1 过 程 ， 因 此 ABSADD 1 是 主 过 程 ， 
ABS 1 是 子 过 程 。 
将 这 两 个 过 程 键入 计算 机 ， 再 键入 ABSADD1 3 54 
显示 出 如 下 出 错 信息 ， 
ABS1 DIDNT OUTPUT,IN LINE PRINT ABS1 
:X 十 
ABS1 :Y AT LEVEL 1 OF ABSADD1 
这 是 因为 子 过 程 ABS 1 中 的 PRINT :X 命令 只 是 将 :X 的 值 在 
屏幕 上 显示 ， 而 并 不 将 :X 的 值 传递 给 调用 它 的 主 程序 。 因 
此 当 用 主 过 程 ABSADD 1 调用 子 过 程 ABS1 时 ,由 于 子 过 程 没 
有 把 求 得 的 值 传递 给 主 过 程 ABSADD 1， 于 是 就 出 现 上 述 的 
出 错 信息 ， 指 出 这 种 类 型 的 错误 。 
要 想 将 子 过程 中 的 量 传递 给 主 过 程 ， 应 该 用 OUTPUT 


-输出 命令 。 
如 果 将 ABS 1 过 程 改 写成 下 面 的 过 程 ABS， 
TO ABS :X 


IE :X>1 THEN OUTPUT :XELSEOUTPUT 
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:X 米 一 1 

END 
则 主 过 程 不 需要 改动 。 键 入 

ABSADD1 3 5 
则 显示 8 
这 是 因为 子 过 程 中 用 了 OUTPUT 命令 。 这 个 命令 有 了 两 种 功 
能 。 一 是 停止 执行 本 过 程 ， 在 这 里 就 是 子 过 程 ABS 1; 二 是 
返回 调用 它 的 主 过 程 ， 即 这 里 的 ABSADD 1, 并 将 OUTPUT 
命令 所 指定 的 量 〈 如 :X 和 Xi -1) 传递 给 主 过 程 。 这 样 主 
过 程 中 的 PRINT 命 令 就 接受 到 分 别 由 ABS :X 和 ABS :Y 传 
递 来 的 值 ， 于 是 就 显示 出 8 。 

对 于 OUTPUT 命 令 要 特别 注意 ， 凡 子 过 程 中 用 OUTP- 
UT 命 令 输 出 有 关内 容 给 主 过 程 时 ， 一 定 要 在 主 过 程 中 设置 
相应 命令 来 接受 子 过 程 输出 的 内 容 ， 否 则 将 会 出 错 。 例 如 ， 
将 主 过 程 ABSADD1 改 为 下 面 的 ABSADD2， 

TO ABSADD2 :X :Y 
(ABS :X)+T(ABS :Y) 
END 
键入 ABSADD? 3 (-5) 
将 显示 出 错 信 息 : 
YOU DON' TSAY WHAT TO DO _ WITH 5， 
INLINE 
(ABS :X)-+(ABS :V) 
AT LEVEL 1 OF ABSADD2? 
这 是 因为 在 过 程 ABSADD2 中 没有 用 一 个 命令 来 接受 ABS 
:又 和 ABS :了 。 接 受 由 子 过 程 传 递 的 数据 的 命令 可 以 有 许多 
种 。 例 如 前 用 过 的 PRINT 命 令 ， 又 如 主 过 程 中 的 OUTPUT 
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命令 也 可 接受 子 过 程 中 OUTPUT 命令 传递 过 来 的 数据 。 例 
如 ,将 前 面 的 ABSADD1 过 程 中 的 PRINT 命令 改 为 OUTPUT 
命令 ， 得 如 下 的 ABSADD 过 程 ， 
TO ABSADD :X :Y 
OUTPUT (ABS :X)+(ABS :Y) 
END 
这 里 的 OUTPUT 命 令 用 来 接受 ABS :X 和 ABS :Y 所 传递 过 
来 的 值 。 另 外 ， 它 又 用 来 库 调 用 ABSADD 过 程 的 命令 或 过 
程 传递 内 容 ( 即 (ABS :X) +(ABS :Y) 的 结 时 。 例 如 ， 键 入 
PRINT ABSADD -3 5 
显示 8 
这 是 因为 过 程 ABSADD 中 的 值 通过 OUTPUT 命令 传递 给 命 
令 PRINT 3 。 又 如 ， 我 们 再 来 编 一 个 过 程 AVE 来 调用 过 程 
ABSADD， 用 来 接受 ABSADD 传 递 过 来 的 值 。 
TO AVE :X :Y 
PRINT 〈(ABSADD :X :Y)/2 
END 
这 个 过 程 求 两 个 数 的 绝对 值 的 平均 数 。 
键入 
AVE -3 (-5) 
显示 4 
我 们 把 过 程 ABS、ABSADD 和 AVE 之 间 的 关系 及 数据 的 
传递 小 络 一 下 。 过 程 ABS 是 过 程 ABSADD 的 子 过 程 ， 过 程 
ABSADD 直 接 调 用 ABS 过 程 。 因 此 过 程 ABSADD 是 过 程 
ABs 的 主 过 程 ,过 程 ABS 中 的 OUTPUT 命 令 将 求 得 的 绝对 值 
传送 给 过 程 ABSADD。 而 过 程 ABSADD 中 的 OUTPUT 命 令 
用 来 接受 过 程 ABS 传 递 来 的 值 . 过 程 ABSADD 对 于 过 程 AVE 
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来 说 ， 它 是 子 过 程 , 过 程 AVE 是 主 过 程 。 因 此 过 程 ABSADD 
中 的 OUTPUT 命令 又 同时 将 结果 传递 给 过 程 AVE， 过 程 
AVYE 中 的 PRINT 命 令 接受 过 程 ABSADD 传递 来 的 值 。 
除了 上 面 讲 的 PRINT、OUTPUT 命 令 可 以 接受 由 过 特 
中 的 OUTPUT 命 令 传递 的 数据 外 ， 还 有 许多 命 令 可 以 接受 
(IUTPUT 命 令 传递 的 数据 。 例 如 ， 
TO TWO :又 
OUTPUT :X 米 2 
END 
TO TBOX :X 
REPEAT 4CFD TWO :X RT 90] 
END 
这 里 命令 FD 用 来 接受 过 程 TWO 传 递 过 来 的 值 。 
又 例如 ， 
TO RTWO :又 
REPEAT TWO :XCED 30 RT 360/TWO :X] 
END 
这 里 命令 REPEAT 用 来 接受 过 程 TWO 传 递 过 来 的 值 。 
事实 上 ， 几 能 接受 表达 式 命令 都 可 用 来 接受 过 程 中 由 
OUTEPUT 命 令 传递 的 内 容 。 也 就 是 说 ,可 以 将 过 程 当 作 标 准 
函 数 一 样 来 使 用 (关于 标准 函数 请 见 第 六 章 )。 例 如 ， 键 入 : 
MAKE “A ABS -3 
PRINT :和 A 
显示 3 
这 里 MAKE 命 令 用 来 接受 过 程 ABS 传 递 的 值 。 
正如 前 面 所 指出 的 ， 一 个 带 输 出 结果 的 过 程 执行 到 
OUTPUT 命令 时 ， 该 过 程 就 告 结束 ， 然 后 返回 到 调 用 它 的 
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那个 过 程 。 必 须 注 意 的 是 ， 这 种 过 程 只 能 输出 唯一 的 一 个 结 
果 ， 因 此 即使 你 在 一 个 过 程 中 写 了 几 个 OUTPEUT 命令 ， 执 
行 时 也 只 有 一 个 OUTPUT 命令 起 作 用 ， 在 一 个 被 执行 的 
OUTPUT 命令 后 面 的 所 有 命令 均 不 再 被 执行 ， 这 一 点 在 编 
写 过 程 时 要 特别 留意 。 

最 后 ， 作 为 练习 ， 请 你 考虑 下 面 的 过 程 之 间 的 调用 。 当 
键入 MPOLY 4 后 ,能 否 画 出 一 个 正四 边 形 ， 一 个 正六 边 
形 和 一 个 正八 边 形 。 

TO MPOLY  : 芭 


POLY  :X 
POLY  :X 
POLY  ?:X 
END 

TO POLY :和 


REPEAT :XIFD 30 RT 360/:X] 

OUTPUT :X+2 

END 
不 能 ! 因为 这 一 段 程序 里 的 调用 是 不 正确 的 。 主 过 程 MFO- 
LY 中 并 未 接受 子 过 程 POLY 传 递 的 数值 。 

正确 的 调用 应 为 : 

TO MPOLY :区 

MAKE 'X POLY : 

MAKE 'X POLY :X 

MAKE  /X POLY  :X 

END 
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TO POLY  :X 
REPEAT  :XCFED 30 RT 360/:X] 
OUTPUT :XT+T2 
END 
也 可 将 上 面 的 MPOLY 过 程 写成 简洁 的 形式 ， 
TO MPOLY  :X 
REPEAT 3CMAKE “X POLY :X] 
END 
如 果 键 入 : 
MPOLY 4 
则 显示 图 5-2 记 示 的 图 形 。 





图 5-2 


四 、GO、PAUSE 和 CONTINUE 命 令 


1. 转移 命令 GO 
它 的 功能 是 改变 一 个 过 程 内 命令 执行 的 次 序 ， 例 如 下 面 
的 过 程 TG， 


TO _TG 
LA: MAKE “X2 
GO 7 沁 A 
END 
这 里 的 LA 称 为 标号 ， 用 来 标记 MAKE ?“X 2 这 一 行 命 
令 所 在 的 位 置 。 


当 计 算 机 执行 到 GO“ 工 A 命令 时 ， 接 着 就 转移 到 LA 所 
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标记 的 位 置 ， 执 行 这 个 位 置 上 的 命令 MAKE “X2。 
使 用 GO 命令 时 ， 要 注意 GO 命令 后 面 的 标号 前 面 一 定 要 
加 双 撒 号 ， 便 如 ，GO “ 工 A 中 的 ″ LA。 而 用 在 所 在 行 之 前 的 
标号 不 可 用 双 撤 号 ， 例 如 ，LA:MAKE.7X 2 中 的 LA。 
GO 命令 只 能 在 本 过 程 中 转移 ， 不 能 转移 到 本 过 程 外 。 
[ 例 5-2] “ 求 1+2+3+… 二 N 
TO _ SUMN :N 
MAKE /7S 0 
W: MAKE 7S :S+3:N 
MAKE ZN :N -1 
IF :N=0 OUTPUT :S 
GO “7“W 
END 
键入 SUMN 104 
显示 55 
暂停 命令 PAUSE 和 继续 命令 CONTINUE 
计算 机 执行 PAUSE 命令 时 不 再 继续 执行 下 去 ， 并 输出 
有 关 信息 ， 询 问 你 是 否 还 要 继续 执行 下 去 。 如 果 你 要 它 继续 
执行 的 话 ， 可 键入 CONTINUE， 或 它 的 简略 形式 CO;， 不 要 
继续 下 去 ， 则 键入 CTRL-G。 
[ 例 5-3] 
TO _TCO 
A:REPEAT 45FED 20 RT 90) 
PAUSE 
RT 90 
FD 30 
GO "7A 
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END 
键入 TCO 
画 出 一 个 正方 形 。 
显示 PAUSE，IN LINE 
PAUSE 
AT LEVEL 1 OF Tco 
L1? 
它 意 思 是 现在 停 在 TCO 过 程 的 PAUSE 命 令 行 上 。 
键入 “CO 
则 继续 执行 ， 画 出 另 一 个 正方 形 。 
键入 CTR ,L-G 


则 显示 ? 
表示 TCO 过 程 已 经 结束 。 

若 键入 其 它 键 ， 则 出 现 出 错 信息 ， 例 如 ， 

键入 D 一 

则 显示 ; 
THERE JIS NO PROCEDURI 
NAMED D 
L1 ? 


表示 计算 机 将 你 键入 的 D 看 作 过 程 名 了 ， 而 这 个 过 程 原 先 又 


没 定义 过 ， 于 是 就 出 现 上 述 的 出 错 信 息 ， 你 可 以 重新 键入 。 
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1.， 建立 计算 一 个 数 的 立方 的 子 过 程 CUB， 并 建立 主 
过 程 MC 调 用 子 过程 CUB， 用 来 计算 X3+ Ys。 


2. 阅读 下 面 两 个 过 程 ， 指 出 键 入 CRE 60 后 ， 将 天 
出 什么 图 形 。 


TO CRE :X TO TRI :X 
ee80。 


MAKE “X TRI:X SETH  :X 
MAKE “X TRILI:X REPEAT 3[FD 30 RT 1205 
MAKE “X TRI:X OUTPUT :和 X+120 

END END 


五 、 递 归 


我 们 已 经 知道 一 个 过 程 可 以 调用 另 一 个 过 程 。 本 节 将 进 
一 步 讨论 一 个 过 程 调用 它 本 身 的 问题 ， 这 种 调用 称 为 递归 。 
先 看 下 面 一 个 例子 。 

TO_ PN :N 

IE :N=0 3STOP 
PRINT  :N 

PN  :N-1l 

END 


在 这 个 过 程 PN 的 过 程 体 中 ， 调 用 了 它 自 己 。 
如 果 键 入 PN 14 
则 显示 4 


3 
2 
1 


递归 调用 的 特点 是 编写 出 来 的 过 程 比较 简洁 。 但 如 果 你 
对 递归 尚未 透彻 理解 的 话 ， 则 又 往往 不 容易 把 递归 过 程 编 
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好 。 因 此 我们 先 从 图 5- 3 求 熟悉 一 下 这 个 过 程 的 执行 情 
况 。 


妆 键 入 PN4 时 ，: 的 值 为 本 


PIGENET 酒 月 PIN3 
上 





图 5-3 递归 调用 及 返回 示意 图 之 一 


箭头 的 流向 指出 了 这 个 过 程 执行 的 整个 流程 。 如 时 我 们 
按 调用 的 先后 次 序 观察 递归 的 层次 ， 、 有 有 五 层 。 第 
一 层 为 PN 4 ， 第 二 层 为 PN 3 ， 第 三 层 为 PN 2， 第 四 层 为 
PN1， 第 五 层 为 PN 0 。 调 用 的 次 序 是 ,第 一 层 调 用人 二 层 ， 
第 二 层 调用 第 三 层 ， 第 三 层 调用 第 四 层 ， 第 四 层 调 用 第 五 
层 。 而 每 次 调用 结束 后 返回 的 次 序 是 ， 对 第 五 层 的 PN 过 程 
来 说 ， 第 四 层 是 它 的 主 过 程 ， 因 此 当 第 五 层 执行 到 STOP 命 . 
令 时 ， 就 返回 到 第 四 层 中 的 END 命 令 。 同 样 ， 第 三 层 是 第 
四 层 的 主 过 程 ， 第 四 层 执行 到 END 命 令 时 就 返回 到 第 三 层 
的 END 命令 。 es 一 层 又 一 层 地 加 上 返回,， 直 
到 返回 到 第 一 层 的 END 命 令 处 时 ， 整 个 递归 过程 结束 。 
应 记 住 ， 子 过 程 返回 到 主 过 程 中 调用 命令 的 下 一 条 命令 
处 。 

ee 过 程 ， 情 况 又 
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TO _ RPN :N 
IF :N=0 3STOP 


RPN _ :N-1 
PRINT 3:N 
END 
键入 REPN 4 
显示 工 
3 
4 


仔细 观察 这 个 过 程 调用 自身 的 情况 ， 可 以 发 现 过 程 中 命 
令 YPRINT :N7 在 /4RPN :N-l1 的 后面， 也 就 是 说 ， 过 程 
RPN :N 在 这 层 中 尚未 执行 到 命令 “PRINT :N?7 时 就 已 去 
调用 过 程 RPN :N-1 3 。 这 样 命 令 ^PRINT :N? 就 要 在 从 
下 一 层 〈 即 PRINT :N-1) 返回 后 才能 被 执行 ， 于 是 就 显示 
下 

由 图 5-4 可 更 清楚 地 看 清 这 个 过 程 的 执行 流程 。 


刍 入 PN 
:N=o 一 人 PN ] 
显示 :IN 有 :NoneNo ] 
由 


END 显 X 让 机 


END 
we 








多 5-4 递归 调用 及 返回 示意 图 之 二 
逆 归 调用 及 返回 示意 图 对 于 仔细 观察 递归 的 过 程 是 很 有 
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帮助 的 ， 但 是 画 起 来 却 是 很 麻烦 的 。 因 此 我 们 通常 将 它们 简 
化 ， 用 亡 谓 的 递归 跟踪 图 来 描述 。 如 图 5-5(a) 和 图 5-5(b)， 
它们 分 别 是 图 5-3 和 图 5-4 的 简化 a4 
图 。 图 中 的 圆圈 表示 每 一 层 过 
程 ， 圈 中 上 面 的 数字 表示 层 号 ， 
下 面 的 数字 表示 调用 的 该 层 时 实 。。 亚 和 ; 访 
际 的 输入 值 。 铅 下 的 箭头 表示 调 。。 扣 示 ? 阁 
用 ， 箭 头 左边 的 数据 表示 调用 前 。 
执行 的 有 关 结 果 。 向 上 的 箭头 表 
示 返 回 ， 箭 头 右边 的 数据 表示 返 
回 前 执行 的 有 关 结 果 。 图 5-5 ”递归 跟踪 图 

[ 例 5-4] 计算 正 整 数 N 的 阶乘 NI1 

因为 1!:=1，NI=Nx(N- 1)!。 因 此 可 定义 一 个 








TO FA 3:N FA4 | 424 
IE :N=1 OUTPUT :N 

OUTPUT :Nx(CFEA:N-1) 4* 
END 


它 的 过 程 跟踪 图 见 图 5-6, 这 个 跟踪 图 比较 简洁 ， 3 
初学 的 读者 可 能 不 容易 看 懂 ， 更 不 容易 由 过 程 作 
出 这 个 跟踪 图 。 特 别 是 递归 发 生 在 OUTPUT 命 
令 的 输出 结果 中 ， 又 增加 了 复杂 程度 。 因 此 再 作 


出 递归 调用 及 返回 示意 图 〈 图 5-7) 。 图 5-6 阶乘 
例如 ， 键 入 递归 跟踪 图 
PRINT FA 4 


则 显示 24 
从 这 个 递归 调用 及 返回 示意 图 可 以 看 出 下 一 层 的 OUT- 
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刍 和 FA4 


寺 - 35N=1 
OUTPUT 4* (FA3) ;OUTP UT3 机 al 人 
传递 24 本 OUTPUT > 









淹 忆 


OUTEUT 工 
伟 递 1 






图 5-7 阶乘 递归 的 调用 及 翁 回 示意 图 


PUT 命令 输出 的 结果 ， 是 用 来 传递 给 上 一 层 的 ， 且 为 上 一 
层 中 的 OUTPUT 命 令 所 接受 ， 例 如 第 四 层 中 的 OUTPUT 命 
令 将 结果 1 用 OUTPUT 命令 传递 给 第 三 层 ， 由 OUTPUT 
2*(FA1) 命 令 接 受 ， 接 着 这 个 第 三 层 的 OUTPUT 命令 在 热 
行 完 2*(FA1)， 即 2*1 后 ， 又 将 结果 传递 给 第 二 层 ，……… 
[ 例 5-5] 
非 波 那 契 数 构成 一 个 数列 ， 数 列 的 排列 规则 为 : 
3a0 三 工 
ail= 工 
an 二 an-1 十 ao-2 
即 ，1，1，2，3，5，8，13，21，.…… o 
关于 非 波 那 契 数 ， 可 以 引出 一 个 有 趣 的 例子 。 如 果 一 对 
小 免 出 生 以 后 过 两 个 月 就 长 成 大 兔 ， 每 对 大 免 每 个 月 都 生 一 
对 小 免 。 假 定 起 初 有 一 对 刚 出 生 的 小 免 ， 按 这 种 规律 进行 繁 
殖 ， 问 N 个 月 后 ， 总 共有 多 少 对 大 小 兔子 。 这 个 例子 可 以 从 
数学 读物 中 看 到 ， 每 月 的 兔子 对 数 ， 构 成 非 波 那 契 数 列 。 第 
N 个 月 的 兔子 对 数 ， 就 是 求 数 列 的 第 N 项 。 可 用 下 列 过 程 求 
非 波 那 契 数 ， 
TO _ FIBO :N 
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IF :N=0 OUTPUT 1 
IF :N=1 OUTPUT 1 
OUTPUT (FIBO :N-1D)+(CFIEO :N-2) 
END 
键入 FIBO 4 
显示 5 
这 个 过 程 的 递归 跟踪 图 如 网 
5-8 所 示 。 
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作出 下 面 过 程 的 递归 调用 《全 ) 
人 图 5-? 非 波 肛 契 递归 中 称 国 
TO _ ACC :N 


IF :N=0 OUTPUT :IN 
OUTPUT :N+(ACC:N 一 1) 
END 


六 、 递 归 作 图 


递归 过 程 也 可 以 用 来 作 图 ， 见 例 5-6。 | 
[ 例 5-6] 
请 看 这 一 段 带 有 递归 调用 的 例子 
TO BOX :X 
REPEAT 4L[FD :入 PT 90] 





END 
TO SBOX  :X 
BOX :和 X 
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SBOX  :X+5 

END 
这 里 过 程 BOX 画 出 边 长 为 输入 量 :X 的 正方 形 。SBOX 是 个 递 
归 过 程 。 递 归 的 执行 过 程 是 这 样 的 ， 进 入 过 程 先 调 用 BOX 
又 , 画 出 一 边 长 为 :X 的 正方 形 。 当 从 BOX 过 程 返 回 后 ， 递 
归 调 用 本 身 ， 即 调用 SBO X:X+ 5 ， 于 是 按 SBOX 的 执行 次 
序 去 调 用 BOX， 画 出 边 长 比 原 来 长 5 步 的 正方 形 ， 如 此 反 
复 调 用 ， 不 会 停止 。 如 果 键 入 。 

SBOX 10 
将 不 断 地 画册 如 图 5-9 所 示 的 图 形 。 要 停止 这 个 :过程 ， 可 以 
键入 CTRL-G。 

如 果 在 过 程 中 加 上 上 转 出 递归 的 条 件 ， 那 末 作 图 过 程 就 可 
自行 停 上 。 例如 下 面 的 下 命令 ， 就 可 保证 将 要 画 出 揭 正 方形 
边 长 超过 60 步 时 ， 自 行 停 目 。 


TO SBOAXA :入 
IF :X>60 9TOP 
BOX :入 
MBOX :X+ 5 
END 

[ 例 5-7] 


下 面 的 过 程 MBOX 也 画册 一 系列 一 个 比 一 个 大 的 正方 
形 ， 这 时 正方 形 之 间 依 次 有 20” 的 旋 
转 ， 见 图 5-10。 

TO MBOX  :X 
IF :X>60 STOP 
BOX :又 

RT 20 








MBOX :X+5 
END 
TO BOX  :X 
REPEAT 4CFED :X RT 90] 
END 
键入 
MBOX 10 全 
[ 例 5-8] 
用 下 面 的 递归 过 程 画 出 图 5-11 所 示 的 图 形 。 
TO STRI 
IRI 
RI 30 
STRI 
END 
TO _TRI 
FD 50 
了 TI _ 120 
ED 50 
了 工 _ 120 
FED 50 
RT 120 
END 
STRI 是 递归 过 程 ， 每 次 递归 调用 就 画 出 一 个 正三 几 老 ， 
且 将 海龟 旋转 30 度 。 这 个 递归 过 程 将 一 直 进行 下 去 ， 直 至 用 
CTRL-G 命 令 中 止 。 
TRI 过 程 用 来 画 一 边 长 为 50 步 的 正三 角形 。 注 意 这 个 过 
程 中 的 最 后 一 个 命令 “RT 120/， 它 的 作 用 是 让 海 怨 回 刘 


ee。 88。 





开始 画 这 个 正三 角形 时 的 原始 位 置 上 ， 而 且 头 部 也 朝 着 当初 
的 方向 。 这 一 点 在 用 递归 过 程 作用 时 是 很 重要 的 。 便 于 对 图 
形 进行 设计 。 本 例 中 STRI 过 程 里 的 命令 “RT 30"“ 后 所 作出 
的 三 角形 相对 于 前 面 的 三 角形 旋转 了 30 度 。 
这 个 递归 过 程 不 带 输入 。 如 有 果 我 们 要 用 条 件 命令 来 控制 
递归 的 执行 ， 可 将 它 改 成 带 有 输入 :ANG 的 过 程 。 
TO STRI :ANG 
IE :ANG<0 5STOP 
TRI 
RT 30 
STRI :ANG 一 30 
上 ND 
键入 





STRI 200 图 5-12 
则 显示 图 5-12 所 示 图 形 。 
如 果 两 个 三 角形 之 间 要 旋转 45"， 则 可 将 过 程 改 为 : 
TO _ STRI :ANG 
IF :ANG<0 STOP 


TRI 
RT 45 
STRI :ANG 一 45 
END 
键入 
STRI 360 


5-13 
则 画 出 图 5-13 所 示 的 图 形 。 


[ 例 5-9] 星 状 图 
我 们 知道 一 个 五 角 星 的 顶 角 为 36 度 ， 因 此 要 让 海龟 画 五 


e。 89 。 


角 星 时 ， 在 五 角 星 顶点 就 应 向 右 旋转 144"”〈 图 5-14) ， 由 此 
不 难得 到 作出 五 角 星 的 过 程 


TO_ STAR1 :L 
REPEAT SIEFD :L RTI144] 
END 
键入 
STAR1 60 图 5-14 


就 画 出 一 个 边 长 为 60 的 五 角 星 。 
将 这 个 过 程 改 写成 递归 形式 : 
TO STAR2 :L 

FED  : 工 

RT 144 
STAR2 : 革 
END 

过 程 STAR2 的 执行 情况 为 ， 

FD  :L 
RT 144 
FD  :L 
RT 3144 
FID: 革 

RT 144 


即 无 止境 地 执行 ED: 工 和 RT144， 而 STAR1I 只 重复 执行 ED 
:L 和 RT 144 5 次 。 因 此 ， 执 行 递 归 过 程 STAR2， 海 多 
就 一 直 不 停 地 在 重复 地 画 同 一 个 五 角 星 ， 直 至 用 CTRL-G 命 
令 中 止 。 

如 果 我 们 再 将 旋转 的 角度 也 编 为 输入 ， 将 过 程 改 为 


es 90。 


TO STAR :L :A 
FED  : 革 
RT :A 
STAR :L :A 
END 
人 5-15 
STAR 60 144 
出 仍 画 出 五 角 星 
而 键入 
STAR 60 80 
出 画 出 九 角 星 〈 图 5-15) 。 
更 有 趣 的 是 ， 当 你 用 各 种 不 同 的 输入 值 时 ， 可 以 得 到 许 
多 奇妙 的 图 形 〈 图 5-16，17，18) 。 





键入 STAR 160 60 





键入 STAR 70 100 
5-16 5-17 图 5-18 


更 令 人 惊 话 不 已 的 是 ， 当 你 键入 
STAR 60 103 

时 ， 还 会 发 现 最 初 画 出 的 是 一 个 七 角 星 ， 以 后 每 边 越 画 越 
粗 ， 最 后 竟 变 成 一 个 圆 环 《〈 图 5-19)。 

产生 这 个 现象 的 原因 是 ， 一 个 正七 角 星 顶 角 的 度数 不 是 

一 个 整数 〈 约 为 77.1*， 因 此 海龟 在 顶 角 处 旋转 的 角度 不 恰 

好 是 103*) 。 这 样 ， 每 次 画 出 的 七 角 星 前 后 之 间 就 有 一 个 很 

。91 。 





图 5-19 ”一 个 七 角 星 逐渐 演变 成 一 个 圆 环 〈:L 王 60 :A 一 103 ) 


小 的 偏差 ， 这 很 小 的 偏差 累积 起 来 ， 结 果 就 逐渐 重生 填 满 一 
个 圆 环 。 建 议 你 也 试 一 下 ， 用 种 种 不 同 的 数据 ， 也 许 能 获得 
更 有 趣 更 奇妙 的 图 形 来 。 
我 们 再 将 STAR 过 程 作 一 些 改变 ， 使 它 每 调 用 一 遍 ， 边 
长 都 比 原来 的 增加 5 步 ; 
TO STARP :L :A 
FD :L 
RT 2:A 
STARP :L+5 :A 
END :L=10  :A=120 寻 
键入 图 5-20 
STARP 10 120 
则 画 出 一 个 三 角形 的 螺旋 线 《〈 图 5-20) 。 
键入 
STARP 10 144 
则 画 出 一 个 五 角 星 状 的 螺旋 线 ( 图 5-21) 。 
键入 








STARP 10 90 并 =10 :A=144 
则 画 出 一 个 方形 螺旋 线 〈 图 5-22) 。 用 
键入 
STARP 10 80 


浊 92。 


则 画 出 一 个 图 5-23 所 示 的 螺旋 线 。 


并 =10 :A=90 汪 =10 :A=80 
图 5-22 图 5-23 
如 果 将 过 程 STARP 再 作 一 点 修改 ， 让 每 次 递归 调用 边 


长 的 增长 值 也 编 为 一 个 输入 ; 
TO STARP :L :A 3: 





FD :L 
RT :A 
STARP :L+:I :A : 
END 
键入 
STARP 0 89 2 0 AsgiI=2 
则 画 出 图 5-24 的 图 形 。 5-24 
志 一 0:A 一 91:I 一 2 | 亿 =0:A=119 :[=? 
图 5-25 图 5-26 
键入 


se。 93。 


STARP 0 91 2 
则 画 出 图 5-25 的 图 形 。 
键入 
STARP 0 19 2 
则 画 出 图 5-26 的 图 形 。 
键入 
STARP 0 121 2 
则 画 出 图 5-27 的 图 形 。 
对 于 这 个 过 程 ， 要 注意 别 把 过 程 中 的 命令 “STARP :L 
+ :TI:A:I 写 成 /STARP :L+:I :A/“， 耕 则 会 由 于 缺少 
一 个 输入 而 出 现 错误 ， 致 使 过 程 停 止 执行 。 
现在 我 们 将 STARP 中 每 次 递归 边 长 增加 改 为 角度 增 





加 。 
TO STARP :L :A 


ED :LL 
RT :A 
STARP :L :A+5 
END 
键入 
STARP 5 1 
则 画 出 图 5-28 的 图 形 。 
键入 
STARP 2 2 
则 画 出 图 5-29 的 图 形 。 
键入 四 
STARP 5 5 由 ==5\A=5 
则 画 出 图 5-30 的 图 形 。 5-30 


ee 94。 








练习 14 
写 出 下 毁 各 图 的 递归 过 程 。 





七 、 二 又 树 


图 5-31 所 示 的 图 形 称 为 二 叉 树 。 它 的 特点 是 ， 每 根 枝条 
的 顶端 分 出 二 根 新 的 较 小 的 枝条 。 
[ 例 5-10] 
画 出 二 又 树 的 一 个 又 (图 5-32) 
可 用 下 面 的 过 程 TREE 1， 
TO_ TREE1 :上 图 5-31 二 叉 树 
二 上 .5 
ED 了 : 沁 
BRKR 二 旋 
RT 90 L_ 
FED :于 图 5-32 树 叉 
BRK :EL 
工 工 45 
END 
根据 二 叉 树 的 特点 ， 我 们 可 用 下 面 的 方法 来 画 出 整 棵 的 
*。， 95 。 


画 出 一 根 左 枝条 ; 

画 左 枝 条 上 的 二 又 树 ; 

画 完 左 枝条 上 的 二 又 树 ， 再 画 右 枝条 上 的 二 又 树 $ 
天 完 右 枝 条 上 的 二 又 树 。 


如 果 将 新 枝条 的 长 度 取 为 老 枝条 的 一半 ， 可 将 上 面 的 过 
程 TREE 1 改 为 如 下 的 递归 过 程 TREE， 


TO TREE  :L 
LT 45 

FED  : 
TREE  :L7/2 
BK  :L 

RT 90 

FD  : 工 
TREE  :L/2 
BK  : 工 

LT 45 

END 


这 个 过 程 也 有 一 个 缺点 ， 就 是 递归 永远 不 会 结束 。 为 此 
我 们 加 上 一 个 控制 条 件 ， 规 定 顶 部 的 枝条 的 长 度 不 能 小 于 3 
步 。 即 将 TREE 过 程 改 为 ， 


eg96。 


TO TREE :上 
IF :L<3 3STOP 
工 工 45 

FED : 世 

TREE  :L/2 

HRK  :L 


RT 90 
FD :EL 
TREE :EL/2 
BK :于 
LT 45 图 5-33 
END 上 : 
键入 全 
TREE 30 
画 出 图 5-33 的 二 又 树 。 
如 果 再 加 上 一 条 命令 “BK 50/， 
那 末 就 画 出 一 根 树 杆 〈 图 5-34) 。 图 5-34 ” 带 树 杆 
上 面 的 二 又 树 两 根 枝条 的 夹 角 为 90"， 的 一 又 树 
我 们 也 可 将 它们 的 夹 角 也 作为 输入 量 ， 作 出 严 角 可 以 任意 指 
定 的 二 又 树 。 其 过 程 为 
TO TREE :L :A 
IF :L<3 STOP 


LT :A 

FED  : 荆 

TREE L/2 :A 
BRK :EL 

RT 2* :A 

FED  :L 

TREE :L/2 :A 
BK :EL 

LT :A 

END 


画 出 的 二 又 树 的 夹 角度 数 为 ，:A+2。 


*。 97。 


键入 
TREE 40 15 
出 画 出 图 5-35 所 示 的 树 。 
如 果 和 希望 不 仅 树 又 的 夹 角 可 以 任意 指定 ， 
而 且 新 枝条 与 老 枝条 之 间 的 长 度 比例 也 可 任意 
指定 ， 那 末 控 制 递归 的 条 件 就 应 改 成 二 又 树 的 


及 


图 5-35 


枝条 的 层 数 为 宜 。 过 程 中 增加 两 个 输入 量 ，:D 是 层 数 ，:M 


是 新 枝 与 老 技 的 长 度 比 例 ， 其 过 程 如 下 : 
TO TREE :L :A :D :M 
IE D=0 3STOP 
LEF  :A 
ED :L 


TREE :L*r :M :A :D-1 :M 


RT 2x* :A 
FD : 革 


TREE :Lr :M :A :D-1 :M 


BR _  : 工 / 
AAAWY- 
\ 必 
END 
以 


键入 
STREE 15 20 3 1.5 


则 画 出 图 5-36 所 示 的 树 。 


| 


5-36 


更 为 有 趣 的 是 ， 我 们 还 能 画 出 不 对 称 的 二 又 办 ， 例 如 右 


面 的 枝条 长 度 是 左面 枝条 的 两 倍 ， 其 过 程 为 
TO TREE :L :A :D 
IE :D=0 3STOP 
LT 2:A 


se 98。 


上 1 和 汪 
TREE :L :A :D=-1 
BK  :L 
RT 2* :人 扩 
FD 2* : 工 
TREE :L 3:A 2:D=-1 
睛 人 24 
二 
END 
键入 
TREE 10 20 5 
画 出 图 5-37 所 示 的 树 。 
练习 15 
1. 画 出 图 (a) 所 示 的 三 叉 树 
2. 画 出 图 (b) 所 示 的 左 斜 树 


AM 
SN 


ee 








人 


八 、 圆 弧 的 递归 作 图 


我 们 已 经 知道 顺 时 针 画 圆 绝 的 过 程 ARCR 为 ， 
TO ARCR :R :A 
REPEAT :A/10 [CRT 5 FD 3.1416 六 
:R/18 RT 5] 


。 99-.。， 


END 
逆 时 针 画 圆 弧 的 过 程 ARCRL 为 ; 
TO ARCL :R :A 
REPEAT :A/10CLT 5 ED 3.1416 半  :R/18 
工 工 53] 
END 
顺 时 针 画 圆 的 过 程 CIRCLER 为 : 
TO _ CIRCLER  :R 
REPEAT 36CRT 5 FD 3.1416 半 :R/18 
RT 53 
END 
逆 时 针 画 圆 的 过 程 CIRCLEL 为 : 
TO _ CIRCLEL  :R 
REPEAT 36[LT 5 FD 3.1416 # :R/18 
I 工 工 53] 


END 
其 中 “: 有 是 半径 ，: A 是 圆 红 的 度数 。 ( ) 
利用 这 四 个 过 程 可 编 出 一 些 有 趣 的 图 形 。 
[ 例 5-113 


画 出 一 串 气泡 〈 图 5-38) 。 


人 
TO BOB  :R ( ) 


CIRCLER  :R 

了 U 

FD 3 半 :R 8 
PD 

BOB :R+3 

END 


s。100。 


键入 
PU BK 50 PD BOB 54| 


[ 例 5-123 

画 出 一 只 眼球 〈 图 5-39) 。 
TO EYE :R 
IF  :R<2 STOP 
CIRCLER  :R 


EVE  :R-15 图 5-39 
END 

键入 
EYE 50 

[ 例 5-133 

画 出 图 5-40 的 图 案 。 
TO _ EYES :R 
EYE :有 R 图 5-40 
到 工 90 
EYES :R 
END 

键入 
EYE 20 

[ 例 5-149 

画 出 图 5-41 的 图 案 。 
TO WHEEL :R 





PU 

FD 30 
PD 

CIRCLER : 及 


e 0ts 


P U 


B 开 30 
RGT 20 
PD 
WHEEL : 及 
END 
键入 
WHEEL 10 
《 例 5-153 


画 出 图 5-42 的 叶轮 图 案 。 


TO ARCI : 及 





ARCL :有 R 90 
CIRCLEL :了 R/4 
RT 180 
ARCR :R 90 
RT 30 
ARCI :及 
END 

键入 
ARCI 30 

[ 例 5-163 


画 出 一 串 平 移 车 轮 〈 图 5-43) 。 


“102， 


TO 3STRCIR :R 


ATTRRRRT 
Co) 
RT 90 人 人 
FD :有 民 米 2/3 5 -43 


工 工 90 


PD 
STRCIR :及 
END 
键入 
STRCIR 20 
【 例 5-173 


下 面 的 过 程 画 出 一 行 大 雁 〈 图 5-44) 。 
TO _ SWANS :R 


ARCR :R 90 
[下 90 
ARCR :R 90 
RT 180 
ARCL :R 45 
RT 90 2 
FEV RE 
FD 10 一 一 
PD ER 
RT 内 5 -44 
SWANGS :R 
END 

键入 
RT 45 SWANS 104 

[ 例 5-183 


画 出 图 5-45 所 示 的 球 纹 图 。 
TO SPCIR “ :R 
CIRCLER :及 





及 工 20 


SPCIR :及 
END 

键入 
SPCIR 20 

[ 例 5-19] 

画 出 阿 基 米 德 螺 线 〈 图 5-46) 。 人 
TO __GRC :及 
及 工 10 
FED 3.1416/9 米 :及 
了 工 10 
GRC :及 计 
END 

键入 
GRC 0 

练习 16 

画 出 如 右 图 所 示 的 图 形 。 


九 、 阴 有 影 图 


阴影 图 也 叫 实 心 图 。 

[ 例 5-20] 

作出 图 5-47 所 示 的 实心 长 方形 。 

假定 长 为 , 宽 为 W。 作 这 个 阴影 图 的 方法 很 
多 。 我 们 的 方法 是 , 先 作出 长 为 工 、 宽 为 克 的 长 方 图 5-47 
形 ， 再 保持 它 左面 的 一 边 不 变 ， 作 出 长 为 虐 、 宽 为 W-1 的 长 





ai04。 


方形 这样 宽度 依次 减 1， 作 出 到 个 一 个 比 一 个 小 的 长 方 
形 ， 直 到 宽度 为 0 ， 就 得 到 要 求 的 阴影 图 。 编 出 过 程 如 下 ， 
TO 9HREC :L :W 


I 下 :W<0 STOP 
FD : 工 
RT 90 
FD : W 
RTT 90 
F D :二 
有 个 90 
上 了 D 2 W 
R 熙 90 
SHREC : 工 :W-1l 
END 
[ 例 5-217 


画 出 图 5-48 所 示 的 正三 角形 的 阴影 图 。 
用 例 5-18 画 长 方形 阴影 图 类 似 的 方法 ， 每 次 画 边 长 减 1 
的 正三 角形 ， 直 至 边 长 小 于 0 为 止 。 其 过 程 如 下 : 
TO _SHTRI :L 
IF :L<0 STOP 
REPEAT 3CFD :L RT 1203 





SHTRI :L- 1 
END 

[ 例 5-223 

画 正 多 边 形 阴影 图 。 


一 个 正 a 边 形 的 外 角 等 于 360/n， 于 是 可 得 下 面 的 画 阴影 
图 的 过 程 SHPLOY， 每 画 一 个 多 边 形 后 ， 把 边 长 减少 0.5， 


。 105 。 


再 画 下 一 个 。 
TO 3SHPOLY :L :9 
IF :L<0 3STOP 
REPEAT :SCED:L RT 360/:W] 
SHPOLY :L-0.5 :9 
END 
键入 
SHEPOLY 30 7 
即 显示 图 5-49 所 示 边 长 30 步 的 正七 边 形 
阴影 图 。 
[ 例 5-233 
画 出 图 5-50 所 示 的 圆 形 阴 影 图 。 
我 们 的 方法 是 ,从 圆心 出 发 作 一 条 长 
为 半径 的 射线 ,再 让 海龟 回 到 圆心 ， 并 
向 右 旋转 1"。 这 样 ， 当 海龟 画 出 360 条 射 允 阁 
线 后 就 得 到 所 求 阴影 图 。 可 用 CTRL-G 各 作 六 光束 ， 
中 止 递 风 。 SN 
TO 9SHCIR :R 





ED :有 
BR :及 
有 人工 1 
9SHCIR : 及 
上 上 ND 

[5 例 5-24 





画 出 图 5-51 所 示 的 扇形 阴影 图 。 
方法 与 画 圆 形 阴影 图 一 样 ， 不 同 之 处 是 增加 了 一 个 而 形 
的 圆心 角 作 为 过 程 的 输入 量 。 其 过 程 如 下 ， 


st06。 


TO SHEFAN :R :ANC 
IF :ANG<0  STOP 


ED :有 R 
BK 3:R 
RT 1I 
SHEFEAN :R :ANG-1 
END 
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画册 移 形 阴影 图 ( 工 ) 

画 出 平行 四 边 形 阴 影 图 (2) 
画册 梯形 阴影 图 《3 ) 
画 出 台 困 图 (4) 

画 出 图 (5) ~ 一 (8) 。 


OO 心中 六 缚 
1 


人) 





十 、 整 休 量 和 局 部 量 


我 们 已 经 知道 MAKE 命 令 可 以 为 一 个 变量 赋值 。 例 如 ， 
MAKE “X 41 
表示 将 数值 41 赋 给 变量 ^“X。 这 样 ， 变 量 “X 的 内 容 就 是 41， 
变量 “和 的 内 容 用 : 表 示 。 
在 过 程 中 ， 我 们 将 变量 作为 输入 。 例 如 ， 
TO CIRCLER  :R 
其 中 “:R 作 为 输入 。 这 里 不 能 用 “R， 而 只 能 用 :R。 
由 于 一 个 较 大 的 程序 往往 由 许多 过 程 组 合 而 成 , 这 样 就 
会 出 现 许 多 变量 分 布 在 不 同 的 过 程 中 ， 这 些 变量 有 些 是 相互 
有 关 的 ， 有 些 则 是 独立 的 ， 与 其 它 过 程 无 关 。 因 此 ， 我 们 将 
变量 分 成 两 类 ， 称 为 整体 变量 和 局 部 变量 ， 简 称 为 整体 量 和 
局 部 量 。 
一 个 变量 ， 如 果 在 整个 程序 的 各 个 过 程 中 都 可 以 使 用 并 
能 改变 其 值 ， 那 末 这 个 变量 就 称 为 整体 变量 。 
一 个 变量 ， 如 果 只 能 在 某 个 过 程 及 其 子 过 程 中 才能 使 用 
并 改变 其 值 ， 则 称 这 个 变量 为 局 部 变量 。 
整体 变量 由 MAKE 命 令 建 立 ， 而 局 部 变 量 则 由 过 程 中 
的 输入 建立 。 
[ 例 5-25] 
在 这 个 例子 里 ，MAIN 是 主 过 程 ，SUB 是 子 过程 ， 变 量 
X 是 整体 变量 ， 变 量 Y 是 局 部 变量 。 
TO MAIN 
MAKE 7“X 2 
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PRINT :X 


SUB :X+1 
PRINT :X+3 
PRINT :YY 
END 
TO SUB :YY 
PRINT :YY 
PRINT :X 二 2 
END 

键入 
MAIN 


则 显示 “2 《由 过 程 MAIN 的 命令 PRINT :;X 所 显示 》 
3 (由 过 程 SUB 的 命令 PRINT :Y 所 显示 ) 
4 (由 过 程 SUB 的 命令 PRINT :X+2 所 显示 ) 
5 〈 由 过 程 MAIN 的 命令 PRINT :X+ 3 所 显示 > 
接着 又 显示 下 面 一 行 英文 句子 ， 叫 做 出 错 信 息 : 
THERE  IS9 NO NAME YIN LINE 
PRINT :YY 
AT LEVEL 1 OF MAIN 
它 的 意思 是 ， 主 过 程 MAIN 中 的 命令 “PRINT :Y” 里 的 
变量 Y， 在 主 过 程 中 变量 Y 无 效 。 
事实 上 ,变量 X 是 用 MAKEE 命 令 建 立 的 ,所 以 是 整体 量 ， 
在 主 过 程 和 子 过 程 中 都 有 效 ， 而 变量 Y 则 是 作 为 过 程 SUB 的 
输入 建立 的 ， 所 以 是 局 部 量 ， 只 能 在 子 过 程 SUB 中 有 效 ， 而 
在 主 过程 MAIN 中 无 效 ， 于 是 出 现 上 述 的 出 错 信息 。 
键入 ”MAIN 后， 执行 的 过 程 是 这 样 的 ; 
MAKE “X 2 建立 整体 量 X， 且 赋 于 值 2。PRINT 
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:2X 显 示 “:X 的 值 ， 就 是 2 。 命 令 *SUB :X+L7 调 用 子 过 
程 SUB， 且 输入 值 为 3。 
子 过 程 SUB 中 的 命令 "PRINT  :Y7 显 示 了 (因为 MAIN 
过 程 调用 它 时 ， 输 入 值 为 3 ) ，PRINT  :X+ 2 中 的 :X 是 
整体 量 ， 因 此 在 子 过 程 中 仍 有 效 ， 所 以 显示 4。 
子 过 程 SUB 执 行 结束 ,返回 到 主 过 程 MAIN ,执行 PRINT 
:Y， 由 于 :Y 是 局 部 量 ， 只 在 子 过 程 SUB 中 有 效 ， 在 主 过 程 
MAIN 中 就 无 效 ， 因 此 显示 出 错 信息 。 
在 子 过 程 SUB 中 增加 一 条 命令 : 
MAKE “YY :YES。 
得 改写 为 
TO SUB :Y 
MAKE 7 Y :YES 
PRINT  :Y 
PRINT :X+ 2 
END 
现在 的 问题 是 ， 变 量 Y 既 出 现在 过 程 SUB 的 输入 中 ， 又 
在 同一 过 程 SUB 中 用 MAKE 命 令 对 它 的 值 作 改变 。 这 样 Y 宽 
况 是 整体 变量 还 是 过 程 SUB 中 的 局 部 变量 ， 请 看 执行 结果 ， 
键入 
MAIN 
显示 2 (由 过 程 MAIN 的 命令 PRINT : 文 所 显 
示 ) 
3 (由 过 程 SUB 的 命令 PRINT :Y 所 显示 ) 
4 (由 过 程 SUB 的 命令 PRINT :X+ 2 所 显 
示 ) 
5 (由 过 程 MAIN 的 命令 PRINT :X+ 3 所 


IT0 ， 


显示 ) 


THERE IS NO NAME Y，IN LINE PRINT 


YY 


AT LEVEL 1 OF MAIN 


表明 Y 还 是 局 部 变量 。 


这 告诉 我 们 ， 变 量 只 要 被 作为 过 程 的 


输入 后 ,以 后 在 本 过 程 中 使 用 MAKE 命 令 只 能 改变 它 的 值 ， 
并 不 能 将 它 变 为 整体 变量 。 

现在 我 们 将 上 述 MAIN 和 SUB 两 个 过 程 改 成 下 面 的 
MAIN 1 和 SUB 1 过 程 : 


TO MAIN1 
MARKE 7?X 2 
PRINT :又 
SUB1 :X+1 
PRINT :X+ 3 
PRINT :2 
END 
TO SUB1 :Y 
MAKRE ?2 :Y+5 
PRINT :Y 
PRINT :X+ 2 
PRINT :2 
END 

键入 
MAIN 


显示 2 
3 


(由 过 程 MAIN 1 的 命令 PRINT:X 所 显示 ) 
(由 过 程 SUB 1 的 命令 PRINT :Y 所 显示 ) 
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4 (由 过 程 SUB TI 的 命令 PRINT :X+ 2 所 
显示 ) 
8 (由 过 程 SUBI 的 命令 PRINT :2 所 显 
示 ) 
(由 过 程 MAIN 1!1 的 命令 PRINT :XT+ 3 
所 显示 ) 
8 (由 过 程 MAIN 1I 的 命令 PRINT :Z 所 显 
示 ) 
这 表明 在 子 过 程 SUB 1 中 用 命令 MAKE Z/Z :Y+ 5 生成 的 
变量 Z 是 整体 变量 。 由 此 可 见 整体 变量 并 非 一 定 要 在 主 过 程 
中 产生 不 可 ， 它 也 可 以 在 子 过 程 中 产生 。 一 旦 生成 后 ， 它 就 
对 整个 程序 中 的 任何 过 程 都 有 效 。 
[5 例 5-23] 
在 这 个 例子 里 ， 整 体 变量 和 局 部 变量 都 用 相同 的 名 字 
X。MAIN 2 为 主 过 程 ，SUB 2 为 子 过 程 。 
TO _ MAIN2 :X 


CI 


PRINT :入 
SUB 2 :和 + 工 
PRINT :又 十 10 
END 
TO SUB 2 : 
PRINT :区 
MAKE  X :Xk3 
PRINT :X+I 
END 

键入 


MAIN2 :1 
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显示 1 (由 过 程 MAIN 2 的 命令 PRINT :X 所 显 
示 ) 
2 (由 过 程 SUB2 的 命令 PRINT :X 所 显 
示 ) 
7 (由 过 程 SUB 2 的 命令 PRINT :X+1 所 
显示 ) 
11 (由 过 程 MAIN 2 的 命令 PRINT :X+10 
所 显示 ) 
仔细 观察 显示 的 结果 ， 可 以 得 出 这 样 的 结论 ， 即 整体 变 
量 与 局 部 变量 同名 时 ， 在 该 局 部 变量 所 在 的 过 程 中 ， 改 变 的 
仅 是 局 部 变量 的 值 ， 而 名 字 相 同 的 整体 变量 则 保持 不 变 。 因 
此 当 从 子 过 程 返回 到 主 过 程 时 ， 主 过 程 中 的 整体 变量 仍 保持 
调用 子 过 程 前 的 原来 的 值 。 例 如 键入 “MAIN 2 工 ”后 ， 
整体 变量 X 取 值 为 1， 调用 子 过 程 SUB 2 后 ， 子 过 程 中 的 局 
部 变量 X 最 后 取 值 为 6 (由 “MAKE “X :X+37 得 
到 ) 。 但 返回 到 主 过 程 MAIN 2 后 ， 执 行 “PRINT :又 +10? 
了 时， 由 于 这 个 :X 是 整体 X 变 量 的 值 ， 所 以 仍 保持 其 值 为 1， 
因此 执行 的 结果 为 显示 11。 
我 们 建议 读者 尽 可 能 给 整体 变量 与 局 部 变量 取 不 同 的 名 
字 ， 避 免 编 写 和 阅读 程序 时 产生 麻烦 。 当 然 对 于 一 个 比较 大 
的 程序 ， 变 量 名 重复 可 能 是 难免 的 ， 但 是 使 用 时 就 必须 多 加 
小 心 了 。 


1. 条 件 语 名 格式 ; 
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IF 测试 条 件 “THEN 若干 条 命令 ELSE 若干 条 命 


或 
IF 测试 条 件 ”若干 条 命令 ELSE 若干 条 命令 ; 
或 
测试 条 件 THEN 若干 条 命令 ; 
或 
匡 测 试 条 件 ”若干 条 命令 。 
2. 逮 辑 运算 符 ; 
ALLOFSA ANYOERE 和 NOT 
3. STOP: 停止 过 程 执行 ， 若 在 子 过 程 中 ， 则 返回 主 
过 程 。 
4. OUTPUT: 停止 过 程 执 行 ， 返 回 主 过 程 并 将 结果 
传递 给 主 过 程 。 
5. GO:， 转向 标号 所 在 命令 行 。 
6. PAUSE:， 暂停 。 
7. CO:, 使 因 暂停 命 令 而 停止 的 程序 继 续 运行 下 去 。 
8.， 递归， 过程 调 用 自身 。 
分 带 输入 递归 和 不 带 输 入 递归 
利用 递归 作 图 画 圆 弧 ; 
利用 递归 作 图 画 阴 影 图 。 
9. 整体 量 ; 在 整个 程序 的 各 个 过 程 中 都 可 使 用 ， 并 能 
改变 其 值 。 由 MAKE 命 令 产生 。 
10. 局 部 量 ， 只 能 在 某 个 过 程 及 该 过 程 子 过 程 中 才能 使 
用 。 
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第 六 章 “ 标准 函数 与 数值 计算 


LOGO 话 言 提 供 十 个 标准 函数 。 
1. 正 艾 函 数 SIN 
格式 :SIN :和 X 
这 里 的 :X 汪 度 数 。 例 如 ， 
PR SIN 30 
显示 。5 
PR SIN =30 
显示 -。5 
MAKE “X 30 
PR SIN :X 
显示 。5 
2. 余弦 函数 cos 
格式 ,cos  :X 
这 里 的 :X 是 度数 。 例 如 ， 
PR cos 45 
显示 。707107 
3. 反正 切 函数 ATAN 
格式 ，ATAN :X :Y 
这 里 的 :X 和 :YY 都 是 实数 。 它 的 意义 是 


arcta 人 (人 ) (图 6-1) 
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例如 ， 


ATAN 3 4 汉 
显示 RESULT: 36。87 - 
MAKE ”“X 10 aet8T :xy : 
MAKE 7”Y 30 图 6-1 


PR ATAN :又 :Y 
显示 18.4381 
要 注意 的 是 ， 必 须 有 两 个 输入 ， 第 一 个 输入 为 :X, 第 二 
个 输入 为 :了 。 
当 第 二 个 输入 是 负数 时 ， 一 定 要 用 括号 将 它 括 起 来 。 例 
如 “ATAN 4(〈- 3) 7“， 而 不 能 写成 /ATAN 4 -37， 
因为 LOGO 将 4 - 3 看 作为 一 个 算术 表达 式 4 - 3 ， 这 样 
就 缺少 一 个 输入 ， 因 此 显示 如 下 的 出 错 信息 : 
ATAN NEEDS MURE INPUTS 
4. 取 整 函数 INTEGER 
格式 ，INTEGER  :X 
它 的 意义 是 取 : 芭 的 整数 部 分 。 例 如 
PR INTEGER 5.6 


PR_ INTEGER -5.3 
显示 一 5 
5. 舍 入 函数 ROUND 
格式 ，ROUND  :X 
它 的 意义 是 将 :X 四 合 五 入 为 整数 。 例 如 ， 
PR ROUND 3.3 
显示 3 
PR ROUND 3.5 
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显示 4 
PR ROUND -3.3 
显示 -3 
PR ROUND -3.5 
显示 一 4 
6. 平方 根 函 数 SQRT 
格式 ，SQRT  :X 
它 的 意义 是 求 :X 的 算术 平方 根 ， 但 :X 的 值 必须 大 于 等 
于 零 。 例 如 ， 
PR SQRT 4 
显示 2 
PR SQRT 3.1416 
显示 1.77246 
7. 求 二 数 之 商 的 整数 部 分 函数 QUOTIENT 
格式 ，QUOTIENT :X :Y 
它 的 意义 是 ， 先 对 :X 和 :YY 四 含 五 入 取 为 整数 ， 再 将 取 
得 的 整数 相 除 ， 最 后 将 求 得 的 商 取 整 作为 结果 。 例 如 ， 
PR QUOTIENT 8.5 4.1 
显示 2 
这 是 因为 8.5 经 四 含 五 入 为 9 ，4.1 经 四 含 五 入 为 4， 两 
数 相 除 得 商 2.25， 取 整 为 2 。 
PR QUOTIENT 11 3 
显示 3 
PR QUOTIENT 5 (-3) 
显示 -1 
PR QUOTIENT 3.34 0.55 
显示 3 
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这 里 的 第 一 个 输入 3.34 经 四 舍 五 入 成 为 3 ， 第 二 个 输入 
0.55 经 四 售 五 入 成 为 1， 因 此 最 后 的 结果 为 3 ， 需 要 注意 的 
是 ， 如 果 将 第 二 个 输入 改 为 0.45， 则 它 被 四 舍 五 入 为 0 ， 于 

8. 取 余 函 数 REMAINDER 

格式 ，REMAINDER :X :Y 

它 的 意义 是 ， 先 将 :X 和 :Y 的 值 四 侈 五 入 为 整数 。 然 后 
相 除 ， 取 记得 的 余数 。 因 为 除数 不 能 为 室 ， 所 以 如 果 :Y 的 
值 经 四 舍 五 入 后 为 零 ， 则 运算 出 错 。 

PR REMAINDER 5 2.5 

显示 2 

PR REMAINDER 5 
显示 1 

PR REMAINDER 4 0.5 

显示 0 

PR REMAINDER 4 0.4 
显示 出 错 信 息 : 
CANT DIVIDE BY ZERO 
这 是 因为 0.4 经 四 会 五 入 后 成 为 零 3 。 
PR REMAINDER -4 (=-2.3) 

显示 0 

PR REMAINDER -4 (-23.5) 
显示 -1 
9. 随机 数 函数 RANDOM 

格式 ，RANDOM  :X 

它 的 意义 是 ， 当 : 区 的 值 是 大 于 等 于 工 的 正 整数 nb 时 ， 将 
输出 0 ~n-I 之 间 的 一 个 随机 数 ， 若 :入 不 是 正 整数 时 ， 刚 
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Le 
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先 将 它 四 售 五 入 取 为 整数 ， 再 产生 随机 数 ; 当 ?为 0 时 ， 则 
产生 一 个 0 作为 随机 数 。 例 如 ， 
PRI RANDOM 14 


PR RANDOM 4 
显示 1 
PR1 RANDOM 2.5 
显示 0 
PR RANDOM 2.5 
显示 2 
10. 不 重复 随机 数 命令 RANDOMIZE 
我 们 先 看 下 面 的 过 程 TD: 
TO TD :T 


IF :T=0 9TOP 
PR RANDOM 5 


TD :T- 1 
END 
键入 
TD 6 
显示 4 
工 
直 
3 
0 
1 
3 
再 键入 


ee T19 


器 
局 
他 


显示 


有 6 六 产 必 六 哺 


再 键入 TD 6 
显示 


2 
4 
4 
4 
0 
0 


0 
现在 将 机 器 关闭 ， 然 后 再 开启 ， 并 键入 过 程 TD 〈 若 过 
程 已 经 存在 磁盘 中 ， 则 需 将 TD 过 程 调 入 内 存 ) 。 
键入 TD 6 
显示 1 


9 一 罗 放 


再 键入 TD 46 
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项 
洲 


到 oo 上 必 上 睛 


再 键入 TD 6 
显示 


2 
4 
4 
4 
0 
0 


0 

可 见 ， 同 一 个 过 程 TD， 每 次 输出 的 随机 数 序列 是 有 一 定 的 
规律 的 。 因 此 上 面 两 种 情况 下 的 TD 过 程 输出 的 各 个 随机 数 
都 对 应 相同 。 

如 果 我 们 希望 在 关机 后 再 次 开机 并 键入 TD 过 程 后 ， 键 
入 命令 "TD ”67 显示 的 随机 数 序列 不 再 按 这 种 的 规律 出 
现 , 即 可 在 键入 "TD 6 "前 先 键入 命 令 "RANDOMIZE?， 
即 ， 


RANDOMIZE 
TD 6 
显示 1 


0 
4 
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了 
1 


0 
4 
0 AN 
0 
下 面 的 例子 是 随机 函数 的 一 和 


[ 例 6-13 
用 随机 模拟 法 计算 圆周 率 = 。 6- 2 
我 们 知道 ， 圆 的 面积 公式 是 ，A = zz 
所 以 一 个 单位 圆 〈 半 径 为 1 ) 的 面积 为 = 。 将 单位 圆 放 在 直 
角 坐标 系 中 ， 圆 心 在 原点 〈 图 6 - 2 ) 。 贺 的 方程 为 ; 
x2?2+y2= 1 
第 工 象限 的 肩 形 面积 为 卫 z ， 扇 面包 含 在 以 x= 0 、x= 工 
y = 0 、y= 1 四 条 直线 围 成 的 正方 形 内 。 如 果 在 正方 形 中 随 
机 地 选取 n 个 点 ， 其 中 落 在 扇形 中 的 点 为 m 个 ， 那 未 用 公式 
扇形 面积 汪 ，x 正 方形 面积 
来 近似 地 计算 扇形 的 面积 。 因 为 正方 形 面积 为 1， 记忆 
肩 形 面积 二 - 


于 是 开 =4X 人 7 
正方 形 中 的 点 用 随机 数 函 数 自 动产 生 。 落 在 扇形 中 的 点 
x? 十 y2<< 1 
计算 的 过 程 如 下 : 
TO PAI :N 
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MAKE ”“ M 0 
REPEAT :N CMAKE 7XCGRANDOM 10000)/ 


10000 
MAKE 7 Y(RANDOM 10000)V10000 
IF (:X **X+:Yk :Y)<1 THEN 
MAKE 2ZM M+T 
PRINT 4 关 :M/:N 
END 
键入 PAI 100 
显示 3.36 
键入 PAI 200 
显示 3.2 


可 见 ， 随 机 选取 的 点 越 多 ， 所 得 的 结果 越 接近 精确 值 。 
LOGO 语 言 的 数值 计算 能 力 并 不 强 ， 计 算 精 度 也 较 其 它 
计算 机 语言 低 。 但 尽管 如 此 ， 它 还 是 能 够 解决 许多 数值 计算 
的 问题 的 。 下 面 举 一 些 例子 加 以 说 明 。 
[ 例 6-23] 
计算 S=1+2+3+…+an 
根据 关系 式 : 
S=9(n) =n+9Cn-- 1) 
可 得 下 面 过 程 SUM 1 ， 
TO SUM1  :N 
MAKE ”7 S 3:N 
REPEAT :N-1CMAKE 'N :N-1 MAKE 
“9 :S+:N) 
PRINT :9 
了 END 
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键入 
SUM1 100 
显示 5050 
考虑 到 S(I) 具有 递 推 关系 : 
S(I)=L+S(I-1) 
因此 也 可 用 递归 过 程 来 求 上 述 的 和 ; 
TO SUM2 :N 
IF :N=0 THEN OUTPUT 
OUTPUT :N+SUM2 :NI 1 
END 
键入 
PRINT SUM2 60 
显示 1830 
必须 指出 ， 由 于 递归 过 程 占据 的 内 存 空间 较 大 ， 因 些 当 
递归 的 层次 较 多 时 ， 内 存 会 容纳 不 下 。 例 如 键入 “PR SUM2 
1007 这 显示 如 下 的 出 错 信 息 ; 
NO STORAGE LEFT! ，IN_ LINE OUTPUT 
:N+SUM2 :N-1 ATILEVEL67 和 SUM 2 
该 信息 指出 ， 递 归 过 程 调用 到 第 67 层 时 ， 内 存 已 被 上 满 ， 无 
法 继续 执行 了 。 
从 这 里 我 们 可 以 看 出 ， 递 归 过 程 虽然 结构 简单 ， 但 执行 
时 间 较 长 ， 存 贮 空间 也 较 大 。 
[ 例 6-33 


求 正 臣 曲线 的 第 一 拱 ， 即 它 与 X 轴 ( 0 <X<< 互 ) 围 成 的 


面积 (图 6 -- 3 ) o 
将 这 个 图 形 分 成 N 个 直 条 形 《〈 例 如 ，N <100， 每 条 的 
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宽度 是 rz/(2 x N) = 驶 ， 这 些小 条 形 可 近似 地 看 作 卸 形 ,于 
是 第 一 条 面积 近似 等 于 W#sin (2 )， 而 第 二 条 的 面积 近似 


等 于 凡 #sin (2 + 风 )… 用 一 个 变量 了 来 累加 每 次 求 得 的 面 


积 ， 最 后 就 在 T 中 得 到 所 求 
图 形 的 近似 面积 。 

不 可 忘记 ，LOGO 请 言 
中 的 正弦 函数 的 自 变 量 是 以 
度 为 单位 的 ， 因 此 要 将 弧 变 
化 为 角度 ， 换 算 公式 为 : 


1 弧度 = 贡 0 


编 成 的 程序 如 下 ， 
TO _ 39SINX :N 
MAKE 和 T O 
MAKE 
MAKE 


PRINT :了 
END 

键入 
9INX 100 


有 显示 。999982 


;SirxX 





w/2 辟 za/2 
图 6-3 


“ 允 3.1416/2/:N 
“又 WV/2 
REPEAT  :NCMAKE 
3.1416) 
MAKE “ 工 
MAKE 《“X 


/4A : 太 尖 SIN(:X 半 180/ 


:了 工 +:A 
:X+:W] 
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[ 例 6- 43 求 两 个 自然 数 的 最 大 公约 数 
设 这 两 个 数 M、N， 当 M 大 于 N 时 ， 将 M 作 为 被 除数 ， 
N 作为 除数 ， 作 除法 。 若 余数 为 0 ， 则 除数 N 就 是 最 大 公 终 
数 ; 若 余数 不 为 0 ， 则 将 除数 N 作 为 被 除数 ， 余 数 作为 除 
数 ， 再 作 除 法 。 如 此 重复 ， 直 至 余数 为 0 ， 这 时 的 除数 即 为 
最 大 公约 数 。 其 过 程 CD 如 下 : 
TO CD :M IN 
IF REMAINDER :M :N=0 THEN PRINT 


:N _STOP 

CD :N REMAINDER :M :RN 
END 

键入 
CD 81 63 

显示 9 

键入 3456 684 

显示 36 


除了 利用 提供 的 标准 函数 外 ， 我 们 也 可 用 过 程 来 自行 定 
义 一 些 函数 。 
例如 ， 求 一 个 数 的 立方 的 函数 CUB 可 以 这 样 定 义 : 
TO CUB :和 X 
OUTPUT  : 愉 沙 :又 尖 :XX 
END 
这 样 就 可 将 CUB 作 为 函数 看 待 。 
键入 
PRINT CUB 3 
显示 27 
键入 
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PRINT CUB -2 
显示 一 8 
又 如 ， 定 义 求 一 个 数 的 平方 的 函数 S Q 为 : 
TO SSQ :X 
OUTPUT  :Xxk:X 
END 
键入 
PRINT SQ 7 
显示 49 
练习 18 
1. 写 出 一 过 程 ， 产 生 范 围 在 3 一 12〈 包 括 3 和 12) 的 
随机 数 。 
2. 写 出 一 过 程 ， 产 生 5 ~10 之 间 的 随机 数 〈 不 包括 5 
和 10) ， 并 以 此 随机 数 为 边 数 画 出 多 边 形 。 
3. 写 出 一 过 程 ， 它 能 在 屏幕 上 随机 选取 位 置 ， 画 出 许 
多 半径 为 10 的 圆 。 当 一 个 圆 画 好 后 ， 先 抬 笔 再 随机 地 移 到 另 
一 位 置 ， 落 笔画 另 一 个 圆 。 
4. 写 一 过 程 ， 计 算 抛物 线 y = xz?、 直 线 x= 3 和 X 轴 所 
围 成 的 图 形 的 面积 。 


小 对 


标准 函数 : 
1.， SIN :X: 正弦 。:X 是 度 ， 不 是 弧度 。 
2 COS :X:， 余弦 。:X 是 度 ， 不 是 弧度 。 


3，ATAN :X :Y， 反正 切 。arct 人 


4H427 。 


4.。 INTEGER :X:， 取 :X 的 整数 部 分 。 

5. ROUND  :X,， 将 :X 四 含 五 入 为 整数 。 

6. SQRT  :X: 求 :X 的 算术 平方 根 。 

7 QUOTIENT :X :Y: 将 :X :Y 分 别 四 舍 五 入 
取 整 后 求 商 的 整数 部 分 。 

8 REMAIWDER :X :Y :将 :X:Y 分 别 四 售 五 
入 取 整 后 求 余数 。 


9.， RANDOM :X:Y 将 :X 四 含 五 入 取 整 数 为 N， 产 
生 N-1I 一 0 的 一 个 随机 数 。 
10. RANDOMIZE:, 使 产生 的 随机 数 次 序 不 重复 。 
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第 七 章 词 和 表 


除了 处 理 数 值 和 绘制 图 形 外 ，LOGO 请 言 还 提 械 了 与 
BASIC 语 言 的 字符 串 相 类 似 的 功能 。LOGO 语 言 的 字符 串 称 
为 词 ， 词 还 能 组 合成 更 大 的 词 和 表 ， 玫 相当 于 词组 和 句子 。 
LOGO 语 言 引 入 了 词 和 表 以 后 ， 给 编制 程序 和 控制 机 器 带 来 
了 极 大 的 方便 ， 提 供 了 强 有 力 的 手段 ， 并 且 为 人 与 计算 机 的 
会 话 操作 创造 了 条 件 。 


LOGO 语 言 的 词 由 字符 组 成 ， 但 不 允许 含有 空格 ， 而 词 
与 词 之 间 则 需要 用 空格 分 开 。 一 个 词 前 开头 必须 有 一 个 双 强 
号 “2”。 例 如 ， 

“ABC /71A-4B ANY? 7N/Y 724+3 /GOOD. 
MORNING 等 都 可 以 用 作 LOGO 语言 的 词 。 词 前 面 的 这 个 双 
引号 是 它 的 起 始 符号 ， 其 本 身 并 不 是 词 内 容 的 一 部 分 。 然 
而 ， 词 本 身 也 可 以 包含 双 引号 的 。 例 如 ， 

“ABC “第 2 个 双 引 号 作为 词 ““ ABC2” 中 前 一 部 

分 ) 

“ABC “〈 后 3 企 双 可 号 都 是 4ABC7 的 给 成 部 分 ) 

关于 这 个 问题 ， 只 需 将 词 用 PRINT 命 令 显示 出 来 看 ， 就 容易 
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理解 了 。 例 如 ， 
键入 PRINT “ABC 
显示 ABC 
键入 PRINT “ANY? 
显示 ANY? 
键入 PRINT ?72+3 
显示 2+3 
键入 PRINT “HAPPY。BIRTHDAY 
显示 HAPPY。BIRTHDAY 
键入 PRINT ABC7 
显示 “ABC 
LOGO 语 言 的 特点 是 将 数 和 词 同 样 对 待 。 例 如 ， 
键入 PRINT “2+73 (必须 注意 ， 其 中 “722” 和 
“+2 之 间 的 空格 不 可 缺 
少 ， 而 4 十 尹 二 6 3 罗 之 间 
的 空格 可 以 省 略 。) 
显示 5 
将 词 “ 2 和 ?3 都 作为 数 进 行 相 加 ， 类 似 地 也 能 将 数 和 词 成 词 
和 数 相 加 。 例 如 ， 
键入 PRINT 7“2+ 3 
未 5 
键入 PRINT 2+73 
显示 5 
键入 PRINT 2+3 
显示 5 
不 含 任何 字符 的 词 吧 做空 词 。 请 看 : 
键入 PR 7 
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则 显示 一 个 空 行 。 

在 命令 中 使 用 数字 组 成 的 词 和 使 攻 数 值 的 效果 也 相同 。 
例如 ， 

键入 FD ?20 
同样 也 使 海 旬 向 前 走 20 步 。 

与 其 他 计算 桃 语言 不 同 的 是 ，LOGQO 语 言 的 变量 并 没有 
类 型 的 区 别 。 请 看 下 面 几 个 给 变量 “X 赋 值 的 命令 的 例子 : 

MAKE 7“X 7 ABC (把 词 ABC 赋值 给 变量 “XX》 


PRINT  :X 

显示 ABC 
MAKE “和 X 123 〈 把 数 123 赋 值 给 变量 4X) 
PRINT  : 飞 

显示 123 


由 此 可 见 ， 一 个 变量 既 可 接受 数 ， 也 可 接受 词 ， 还 可 接 
受 下 面 将 介绍 的 表 。 变 量 的 这 种 性 质 给 编写 程序 带 来 灵 汪 
性 。 
[ 例 7.17 
王 面 这 个 过 程 的 输入 量 又 既 可 接受 词 ， 也 可 接受 数 e 
TO YOUR-NAME  :X 
PRINT _ “GOOD MORNING 


PRINT  : 尺 
END 
如 果 键 入 命令 : 
YOUR-NAME “WANG-LIN 
则 显示 
GOOD MORNING 
MANGrLIN 
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又 如 键入 命令 : 
YOUR-NAME 534 
则 显示 
GOOD-MORNING 
534 
必须 指出 ，PRINT 命 令 只 允许 一 个 词 作为 它 的 输出 对 
象 ， 如 果 超 过 一 个 ， 只 输出 第 一 个 词 ， 然 后 显示 出 错 信息 。 
例如 : 
PRINT 7“ABC “DEF 
则 显示 ABC 
也 及 出 错 信 息 ， 
YOU DON'MT SAY WHAT TO DO 
WITH DEF 
IN _ LINE 
PR 7YABC “DEF 
词 的 重要 用 途 之 一 是 它 可 以 作为 过 程 的 名 字 。 词 作为 过 
程 名 时 ， 中 间 不 得 使 用 空格。 例 如 ，“MOVETURTLE? 
可 以 作为 过 程 名 ， 但 是 使 用 “MOVE TURTLE2” 就 会 出 
错 。 请 看 下 面 的 过 程 ， 
TO MOVE TURTELBE 
FD 10 
END 
Ctrl-C 
如 果 键 入 
MOVE TURTLE 
就 会 显示 出 错 信 息 ， 
THERE I9 NO PROCEDURE NAMED 
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TURTLE 

但 是 ， 如 果 你 键入 : 

MOVE 14 
倒 可 以 看 见 海 色 向 前 走 了 10 步 。 

这 表示 过 程 MOVYE 被 执行 了 。 这 是 什么 原因 呢 ? 原来 你 
定义 过 程 时 键入 了 “TO MOVE TURTLE”， 计 算 机 则 
自动 地 在 “TURTLE? 前 加 上 了 冒号 “:? ,成 为 “TO MOVE 
:TURTLE”。 因 此 过 程 名 成 了 “MOVE”， 而 “TURTLE2 
则 成 为 过 程 的 输入 量 。 于 是 键入 命令 “MOVE 4?， 这 个 
“42 就 被 赋值 给 了 变量 :TURTLE， 这 个 变量 尽管 在 过 程 
体 中 并 未 使 用 ， 但 不 会 出 错 。 而 在 键入 "MOVE TURTLE7” 
时 ， 这 个 “TURTLE” 既 不 是 数 ， 甚 鞋 也 不 是 词 ， 不 能 作为 
过 程 MOVE 的 输入 ， 所 以 出 错 。 


二 、 表 
人 


表 由 词 所 组 成 的 ， 笼 统 地 可 以 比 作词 组 或 句子 。 表 有 一 
个 最 显著 的 特征 是 它 必 须 放 在 方 括号 里 面 。 例 如 ， 
[CGOOD MORNINGD 
[ABC A-2 2/3] 
[bed-~toom] 
等 都 是 表 。 夷 在 方 括号 里 用 空格 分 开 的 这 些 词 称 为 表 的 元 素 。 
上 面 这 三 个 玫 依 次 各 有 2 、3 、 工 个 元 素 。 需 要 注意 的 是 ， 
表 里 面 的 词 前 面 不 要 放 上 双 引 号 “42? 。 
一 个 表 可 以 不 含有 任何 元 素 ， 这 种 表 称 为 空 表 ， 用 [ 
表示 。 
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〔 例 7.22 
PRINT [GOOD MORNING3? 
显示 : 
GOOD MORNING 
应 该 注意 ， 表 输出 时 只 显示 它 的 各 个 元 素 ， 前 后 的 方 
括号 并 不 显示 。 如 果 输 出 一 个 空 表 ， 则 显示 一 个 空白 的 
行 。 


[ 例 7.3] 
有 这 样 一 个 过 程 ， 
TO TB :X 
PRINT1 [GOOD MORNING，] 
PRINT  :X 
PR [L ] 
RPINT [HOW ARE YOU) 
END 
如 果 你 键入 : 
TB [WANG LIN] 
-出 就 会 显示 


GOOPD MORNING WANG 王 IN 


HOW ARE YOU 
这 里 请 注意 几 个 问题 。 第 一 ，PRINTI 命令 输出 后 不 换 
行 ， 紧 接着 下 一 个 PRINT 语 句 的 输出 ， 其 间 不 留 空格 ， 第 
二 ， 一 个 表 都 从 它 第 一 个 元 素 的 第 一 个 字符 开始 ， 最 后 一 个 
元 素 的 最 后 一 个 字符 结束 ，- 即 使 在 前 者 的 前 面 或 者 在 后 者 的 
后 面 加 上 多 少 个 空格 都 是 不 起 作用 的 。 例 如 ,键入 TBCWANG 
工 IN] ,输出 时 字母 "W "还 是 直接 在 上 一 个 输出 的 最 末 一 个 字 
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符 之 后 。 关 此 ， 例 中 “GOOD MORNING2” 后 面 加 上 一 个 
逼 号 ， 以 把 它们 分 开 ， 第 三 ， 命 令 “PRINT[5 3? 输出 一 个 
空 行 。 

一 个 表 也 可 以 作为 另 一 个 表 的 元 素 ， 这 叫 作 玫 的 媒 套 。 
例如 ， 

[[(A B CCDE FI HH LI 523]] 
这 个 表 里 有 5 个 元 素 。 第 一 个 元 素 为 表 C[A BC]， 它 本 
身 含有 3 个 词 A .BC 第 二 个 元 素 是 表 CDE ”F]， 其 中 有 
词 DE 和 词 F 第 三 ,四 两 个 元 素 是 词 H 和 I， 第 5 个 元 素 是 
表 [123]， 只 含有 一 个 元 素 123。 请 记 住 ， 表 的 元 素 间 必须 有 
空格 ， 一 个 词 内 部 不 能 有 空格 ， 此 外 ， 表 的 元 素 , 既 可 以 是 
词 ， 也 可 以 是 表 ，' 在 一 个 表 里 面 ， 词 和 表 作 为 元 素 多 许 混合 
出 现 。 
表 的 雹 套 也 可 以 是 多 层次 的 。 例 如 
CCCGO]DITOCCHINAD7 
这 个 表 有 三 个 元 素 。 注 意 其 第 一 个 元 素 FGGO]] 是 一 个 表 ， 
该 表 只 有 一 个 元 素 CGO]， 也 是 一 个 玫 ， 然而 这 涉 CGO] 表 只 
有 一 个 元 素 ， 就 是 词 GO。 

用 PRINT 命令 显示 一 个 表 时 ， 最 外 层 的 一 对 方 括号 不 
显示 出 来 ; 但 是 其 余 的 所 有 方 括号 照样 显示 。 

我 们 已 经 知道 了 什么 是 词 和 表 了 。 下面 这 从 例子 告诉 我 
们 ， 巧 妙 地 把 词 作为 过 程 的 输 闪 ， 可 以 灵活 地 变 棍 字符 打印 
测 不 同 的 图 案 来 。 

[ 例 7.3] 

TO TRI IN 5X 
IF :N=0 959TOP 
REPEAT  :NCPRINT1 :XI] 


es T35 。 


PRINT [ 3 
TRI :N-1 :X 
END 
下 商 是 过 程 TRI 两 次 不 同调 用 时 卫 示 的 结果 。 


TRI 8 “ 尖 TRI 4 “03 
洲 米 米 米 米 03030303 
米 米 米 炒 030303 
来 洲 米 0303 
米 水 0 3 
炒 

(a) (b) 

图 7-1 
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1 指出 下 面 各 甫 各 含有 几 少 个 元 素 ; 

(1)[I YOU HE) 

(2)[A B C D E) 

(3)CtiC2 3345 6 [78] 9] 

(4)C[CCHAPPY NEW YEAR] GOOD LUCKI7 
[IT'S FUN]J THING) 

2. 指出 下 列 各 命令 中 的 错误 ， 

(1) PRINT ?RED STAR 

(2) PRINT (NIGHT MOON) 

(3 ) PRINT [COME] 【HERE) 

(4) PRINT ?STUDY 7HARD 
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三 、 有 关 词 和 表 的 命令 


本 节 介 绍 的 一 些 命令 都 是 对 词 和 表 进 行 操作 的 。 对 于 每 
一 个 命令 都 给 出 命令 格式 以 及 功能 说 明 ， 还 配 上 例题 进行 解 
释 。 
1._ FIRST 命令 
格式 ， FIRST 词 
或 FIRST 表 
功能 ， 取 出 词 的 第 一 个 字符 或 表 的 第 一 个 元 素 。 
[ 例 7.47 
PRINT FIRST “ABC-3 
显示 为 A。 这 是 因为 FIRST 命令 取出 词 ABC-3 里 的 第 
一 个 字符 A。FIRST 命令 也 能 通过 OUTPUT 命令 传 递 缚 
果 。 
[ 例 7.5] 
TO _ TEF 
OUTPUT FIRST “ABC-3 
END 
如 果 键 入 ， 
PRINT  TF 
也 最 示 “ 人 和 人”。 
[ 例 7.6] 
PRINT FIRST [CGO TO KKCINEMAD] 
这 条 命令 输出 “GO2”， 这 是 因为 FIRST 命令 执行 对 象 
为 一 个 表 ， 表 的 第 一 个 元 素 是 词 “GO”。 
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又 如 : 
PRINT FIRST FIRST [CGO TO 
[CCINEMAD3 轿 
显示 单个 字母 G。 这 是 因为 其 中 有 两 层 FIRST 命令 ， 内 层 
〈 记 面 的 ) 到 出 玫 里 第 一 个 元 素 一 一 词 “GO?， 外 层 〈 前 一 
个 ) 再 取 词 “GOD2 的 第 一 个 字符 “G?。 
再 看 ， 
PRINT FIRST [CGO] TO [CCINEMAD] 
显示 “GO”。FIRST 命 令 取 表 中 第 一 个 元 素 CGO]， 是 只 含 
一 个 元 素 的 表 。 根 据 表 的 显示 规则 ， 表 最 外 层 一 对 方 括号 并 
不 显示 出 来 。 
最 后 : 
PRINT FIRST [CCGO]] TO CINEMA] 
的 显示 为 “[GO]?。 请 你 自己 考虑 一 下 这 样 显示 的 原因 何 
在 。 
2. LAST 命令 
格式 ，LAST 局 
或 LAST 表 
功能 ， 取 出 词 的 最 后 一 个 字符 误 表 的 最 后 一 个 元 素 。 
[ 例 7.7] 
PRINT LAST “BOOKS 
显示 “S”。 
PRINT LAST [THESE ARE [BOOKS]1 
显示 “BOOKS”。 这 里 显示 的 是 一 个 表 ， 略 去 了 方 括号 。 
PRINT LAST CTHESE ARE BOOKS] 
显示 “BOO 开 S”， 这 是 一 个 词 ， 它 本 身 不 含 方 括 寻 。 虽 然 
显示 的 形式 是 相同 的 ， 但 性 质 却 不 一 样 ， 读 者 必须 搞 清 楚 ， 
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以 后 冰 能 正确 地 使 用 。 
3.， BUTFIRST 命 令 
烙 式 ，BUTFIRST 词 
或 BUTEFIRST 表 
功能 ， 删 去 词 的 第 一 个 字符 或 表 的 第 一 个 元 素 。 
[ 例 7.8] 
PRIN 补 ”BUTFIRST “ASLEBP 
显示 “SLEEP。 
PRINT BUTFIRST [CTHIS TIS] A 
ENGLISH [BOOK3 
显示 ; 
A ENGILISH [BOOKR] 
BUTFIRST 命 令 的 简写 形式 为 BF。 
4. BUTLAST 命 令 
格式 ，BUTLAST 词 
或 BUTLAST 表 
功能 ， 删 去 词 的 最 后 一 个 字符 或 表 的 最 后 一 个 元 素 。 
[ 例 7.9] 
PRINT BUTLAST “BOOKS 
显示 “BOOK”。 
PRINT BUTLAST BUTLAST “BOXES 
显示 “BOX2”。 
PRINT BUTLAST [READ THE TEXT 
CAREFULLYI 
显示 : 
READ THE TEXT 
这 些 命令 也 可 以 组 合 起 来 使 用 。 
[ 例 7.10] 
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PRINT FIRST LAST CCAT RAT BAT5 
显示 4《 了 2 机 
PRINT FIRST LAST [CAT [RAT 
[BATD] 
显示 “BAT?。 读 者 不 妨 思考 一 下 ， 为 什么 这 料 显 示 。 
[ 例 7.113 
PRINT BUTEFIRST BUTRFIRST “ABCDEF 
显示 4《CDEEF2 
PRINT FIRST LAST KCAT RAT [CBATD5 
显示 “BAT?。 而 
PRINT FIRST LAST CCAT RAT [CCCBAT2577 
则 显示 “[BATD?”。 这 两 个 命令 为 什么 输出 不 同 ， 请 读者 自 
也 考虑 一 下 。 
表 也 可 以 作为 过 程 的 输入 ， 请 看 王 面 这 个 例子 。 


[ 例 7.123 
TO STBUT  :X 
了 六 :X=[ ] STOP 
PRINT  :X 
STBUT BUTEFIRST :X 
END 

键入 命令 : 


9TBUT [1 2 3 4 5 6] 
-显示 : 


GD OO 心 co 怕 请 
Co OIi 心 co 
Oo oO 心 co 

oO 咬 心 
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必须 记 住 ， 键 入 一 个 表 时 ， 前 后 一 对 双 强 号 是 不 能 负 少 
的 。 
练习 20 
1. 下 面 各 PRINT 命 令 将 显示 出 什么 ? 
(1)PRINT TIRST ffRED GREEN BLUE 
ORANGE] 
(2)PRINT LAST [MARY JOHN SUE BILEL] 
(3)PRINT BUTFIRST [BOOK BOX BAEL 
BELL] 
(4 )PRINT BUTLAST [CCHEESE PERSON 
MUSHROOMS] 


(5 )PRINT FIRST “APPLE 


(6 )PRINT 
(7 )PRINT 
(8 )PRINT 
(9 )PRINT 
(10)PRINT 
(11)PRINT 
(12)PRINT 
(13)PRINT 
(14)PRINT 
(15)PRINT 


FIRST 【APPELEB] 
LAST “ABRPLE 
LAST [APPLER3 
BUTFIRST “BROOK 
BUTILAST “NOTE 
FIRST [A B Cj 
LAST 12345 
FEIRST 2424 
BUTLAST 
BUTEFIRST 


“929 
4 $ 咱 Cr 


2. 按 题目 要 求 写 出 命令 。 


(1) 显 示 “Ring” 中 的 “ing? 

(2 ) 显 示 “RUSHING2” 中 的 “RUSH2 

(3 ) 显 示 “COMPUTER2” 中 的 “了 R2> 

(4) 显 示 CMIND OVER MATTER3 中 “MATTER 六 


昌 于 人 全 


的 “六 2? 
《5 ) 显 示 C[AB]ICCDD]CEFD]ICGHDO3 中 的 “也 ? 


四 、 键 盘 输 入 命令 


许多 计算 桃 语言 都 有 人 机 对 答 的 方式 ， 在 程序 里 适当 安 
排 一 些 提 示 或 问 句 以 及 相应 的 程序 处 理 单元 ， 可 以 根据 使 用 
者 的 答复 或 要 求 的 不 同 ， 转 入 不 同 的 程序 单元 去 处 理 。 人 机 
对 答 的 方式 常 称 为 会 话 式 或 交互 式 ， 它 极 大 地 提高 了 应 用 的 
灵活 性 ， 对 不 熟悉 或 不 懂得 计算 机 语言 的 人 更 有 帮助 。 

实现 会 话 方式 必须 使 用 键盘 输入 命令 ， 例 如 BASIC 语 言 
的 INPUT。LOGO 语言 有 两 个 键盘 输入 命令 REQUEST 和 
READCHARACTER， 它 们 的 缩写 形式 分 别 为 RQ 和 RC。 

1 REQUEST 命 全 

格式 ，REQUEST 

功能 ， 接 受 从 键盘 上 输入 的 一 个 骨 。 

当 计 算 机 执行 过 程 中 遇 到 命令 REQUEST 时 ， 在 原来 提 
示 符 “? 光 的 位 置 上 显示 一 从 小 方 氛 光标 ， 等 待 你 输入 一 个 
表 。 在 你 从 键盘 上 输入 一 个 麦 并 按 下 Return 键 以 后 ， 屏 幕 上 
又 重新 显示 出 提示 符 “2” 表 了 明 你 刚才 键入 的 那个 袁 已 经 被 
REQUEST 命令 接 受 了 。 

[ 例 7.13] 

对 于 命令 ， 

MAKE 7X REQUEST 
屏幕 先 显示 光标 ， 如 果 你 键入 : 

I AM VERY GLAD 
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由 藉 接着 又 显示 提示 符 “? ”， 表 明 你 键入 的 表 [CI AM 
VERY GLAD] 已 被 REQUEST 命 令 接 受 ， 并 由 MAKE 命 
令 赋 值 给 变量 X。 如 果 要 核对 一 下 ， 也 可 将 变量 X 的 内 容 显 
示 出 来 ; 
PRINT  :X 
显示 。 
TI AM VERY GLAD 
对 于 REQUEST 命令 接受 的 表 ， 也 可 以 车 时 上 一 节 介 绍 
的 词 表 命 令 。 蚀 如 : 
[ 例 7.14] 
MAKE /7X LAST REQUEST 
显示 光标 后 ， 如 果 你 键入 一 个 表 : 
TODAY IS [SUNDAY] 
接着 屏幕 又 恢复 显示 提示 符 “? ”， 表 示 一 个 表 [TODAY 
IS 5SUNDAYD] 已 被 REQUEST 命令 接受 。 如 果 你 要 检查 
一 下 变量 X 的 内 容 ， 则 键入 : 
PRINT  :X 
则 显示 : 
SUNDAY 
道理 十 分 简单 。 输 入 这 个 表 后 ， 由 LAST 命 令 到 出 它 最 后 一 
个 元 素 ， 就 是 表 CSUNDAY] 赋值 给 变量 X， 表 显示 时 前 
后 一 对 方 括号 被 略 去 。 
2. READCHARACTER 命 令 
格式 ，READCHARACTER 
功能 ， 接 受 从 键盘 上 输入 的 一 个 字符 。 
计算 机 遇 到 READCHARACTER: 命 令 时 ,了 邮 在 提示 符 
“4? ”的 位 置 竺 显示 一 个 光标 ; 等 待 接受 键盘 输 入 全 : 企 字 
43。。 


符 ! 一 旦 按 平一 个 键 诗 ， 久 立 邯 显示 问号 斤 示 符 ， 和 使 用 者 不 
池 再 按 Return 键 。 

[ 例 7.152 

MAKE 7“X READCHARACTER<. 

屏幕 即 显示 光标 。 如 果 你 想 键 入 字符 “《A2” ， 注 意 不 能 按 
Return 键 。 字 符 “A?” 键 入 后 并 不 在 屏幕 上 显示 ， 而 在 该 处 
显示 一 个 提示 问号 ， 些 时 字符 “A?” 已 赋值 给 了 变量 又 。 

应 该 强调 的 是 READCHARACTER 命 令 只 接受 一 个 字 
符 ， 如 果 键 入 的 字符 超过 一 个 ， 后 面 的 字符 并 不 接受 。 下 面 
有 一 个 例子 。 

[ 例 7.163 

MAKE 7 Y READCHARACTER4 

屏幕 显示 光标 后 ， 如 果 你 键入 : 

ABC 《后 面 不 按 Return 键 ) 
几 幕 则 在 问号 提示 符 后 显示 : 

? BC 
其 原因 是 ，READCHARACTER 命令 只 接 第 一 个 字符 : 
“A2 ，MAKE 命令 立即 赋值 给 变量 Y， 同 时 显示 问号 提 
示 符 。 这 个 过 程 非常 快 ， 你 可 能 来 不 及 党 察 。 因 此 你 键入 的 
后 两 个 字符 “BC2” 却 被 计算 机 当 作 命令 中 的 字符 而 有 显示 在 
问号 提示 符 的 后 面 。 具 体 经 过 是 这 样 的 ; 

用 户 键入 ， A (立即 被 接受 ,并 赋值 给 Y) 

计算 机 显示 ，? 《恢复 问号 提示 ) 

用 户 再 键入 ，B C 〈 人 的 动作 总 赶不上 计算 机 的 反应 ) 

计算 机 显示 :. 3? :BC 

如 果 你 在 此 时 再 冬 下 Reiutn 键 的 话 ， 评 算 机 当然 把 它 作 : 
为 命令 看 待 ， 然 而 你 来 曾 定 义 过 和 名 为 “BC?” 的 过 程 ， 于 是 
4 


显示 出 错 信息 ， 
THEREB IS NO PROCEDURE NAMED BC 

[ 例 7.173 

编制 程序 请问 用 户 是 否 要 画 一 个 正三 角形 ， 如 果 回 答 
“Y2”， 就 画 一 个 边 长 30 步 的 正三 角形 ， 否 则 画 一 个 边 长 30 
步 的 正方 形 。 

TO ”ANS 

PRINT cDO Y9U WANT A TRIANGLE? 

Y/N 

OUTPUT RC 

END 

TO _ DRAWER 

IF ANS=ZY THEN REPEAT 3CFD 30 

RT 120] STOP 

REPEAT 4CFD 30 RT 903 

END 
只 需 键入 过 程 名 “DRAWER”， 过 程 DRAWER 调 用 过 程 
ANS，ANS 的 第 三 行 命令 “OUTEUT RC” 接受 用户 键盘 
输入 的 字符 传递 给 ANS 后 返回 过 程 DRAWER。 根 据 ANS 的 
值 是 香 是 字符 “Y?”， 海 危 就 画 出 三 角形 或 者 正方 形 。 

这 里 为 了 条 理 清 楚 ， 编 了 两 个 过 程 ， 这 就 是 “模块 化 ? 
的 程序 设计 。 实 际 上 ， 完全 可 以 编 为 一 个 过 程 ， 这 就 留 给 你 
自己 练习 了 。 

这 里 还 有 一 个 问题 。 无 论 是 单独 编写 过 程 〈 父 如 例 中 的 
ANS) 通过 传递 还 是 直接 使 用 READCHARACGTER 命 令 ， 
反正 程序 执行 时 只 要 过 到 READCHARACTER 命令 就 要 停 
下 来 等 待 键盘 输入 一 个 字符 。 如 果 一 个 键盘 输 六 的 字符 信息 
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要 反复 多 次 使 用 的 话 ， 就 会 异常 麻烦 。 因 此 还 旦 用 HMAKE. 
命令 配合 ,赋值 给 一 个 变 晤 保存 为 宜 。 使 用 时 只 要 取 这 个 变 
量 值 来 判别 就 行 了 。 

部 悉 BASIC 语言 的 读者 一 定 会 :发现 ，REQUEST 和 
READOHARACTER 这 两 个 命令 与 BASIC 语 言 的 INPUT 谷 
令 非 常 相 似 ， 它 们 为 程序 执行 期 间 实 现 人 机 对 话 提供 可 条 
件 。 

在 进一步 的 堂 例 以 前 ， 再 介绍 一 条 新 的 饰 令 。 

清除 文本 命令 ，CLEARTEXT 

CLEARTEXT 命 令 用 来 清除 屏幕 的 文本 方式 ， 使 整个 
屏幕 都 用 来 作 图 。 

【 例 7.18] 

下 面 这 个 过 程 先 画 出 一 个 边 长 指定 的 正 芋 角形， 然后 反 
复 询问 你 是 否 要 再 画 一 个 ， 如 果 回 答 “Y2 ， 那 末 海 龟 再 画 
一 个 边 长 比 原来 大 15 步 的 正三 角形 ， 否 则 就 结束 。 

TO _TRI :SIDE 


下 下 
六 EPEAT 3CFPD， :SIDE RIT 1203 
CLEAR 中 EXTI 
PRINT CCWOULD ， YOU LIKE ANOTHE 祖 
Yy YY/N] 
IE RC=ZY THENRN : TRI'SIDE+15 
9TOP 
END 
E 酌 7;197 


从 键盘 输入 全 班 学 生 的 成 绩 / 接 平面 的 耸 数 线 ' 芬 成 王 
档 ， 统 计 各 档 的 类 数 ,并 打印 输出 统计 结果 。 
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(1) 60 分 以 下 ” 
(2 ) 60 分 以 上 |( 含 60 分 > 70 分 以 下 4 
(3) 30 分 以 灶 《 仿 70 分 》，80 分 羽 下 ; 
(4) 80 分 以 上 (〈 含 80 分 )》 ，90 分 以 下 ; 
(5) 90 分 以 上 人 《 例 90 分 ) 。 
主 过 程 MAIN 打 印 输出 分 档 统计 结果 。MAIN 的 输入 :M 
用 来 统计 总 大 数 ， 变 量 Mi 一 M5 分 别 记录 答 档 分 数 线 学 生 人 
数 。 子 过 程 STAT 用 来 接受 键盘 输入 的 学 生 残 绩 ;7 如 果 输 入 
的 分 数 小 乎 0 或 大 于 100， 则 显示 信息 ， 
MARK IJIS GREAT THAN 100 OR LESS 
THAN 0，TYPE，AGAINI! 
过 程 编制 如 下 ， 
TO MAIN :M 
MAKE 7ZM1 
MAKE 7M2 
MAKE “7“M3 
MAKE “M4 
MAKE “M5 
STAT 
(PRINT [5[0--60:]] :M1) 
(PRINT 〔K[560--70:]] :M2) 
(PRINT KK570--80:]] :M3) 
(PRINT [KKC80--905  :M47 
(PRINT [5590--10059 “:M5) 
END 
TO _STAT 
IF :M=0 STOP 


一 着 和 一 区 小 一 交 下 一 全 下 一 


“47 ， 


PRINT [TYPE IN MARK3 
MAKE  /X FIRST REQUEST 
IF ALLOF NOT :X<0X<60 THEN MAKE- 
“M1 :MI+1 
IF ALLOF NOT *X<-60:X<70 THEN 
MAKE 7M2 :>M2+1 
IF _ ALLOR NOT :X<70 :X<80 THEN 
MAKEYM3 :M3+ 
IF ALLOF NOT  :X<80:X<90 THEN 
MARKRE "M4 :M4+1 
IF ALLOF NOT :X<90 NOT :X>100 
THEN MAKE 7M5 :M5+1 
IF ANYOF :X>100 :X<0 THEN PR 
[] PR [MARK IS GREAT THAN 100 
OR LESS THAN 0，TYPE AGAIN! ] 
PR [ 3] MAKE 2ZM :M+1 
MAKE “ M :M-1 
STAT 
END 

练习 21 

1. 编写 一 个 过 程 ， 从 键盘 接受 一 个 胡 ， 并 每 次 取出 表 
中 一 个 元 素 ， 最 后 统计 并 显示 出 元 素 个 数 。 

2. 对 一 批 人 进行 心率 检查 ， 并 分 为 $ 档 ， 每 秒 40 次 
以 下 、 每 秒 40 一 49 饮 、 每 秒 50 一 69 次 、 每 秒 70 一 79 次 ， 每 秒 
80 次 以 上 。 编 制 一 个 程序 ， 接 受 键盘 输入 的 心 窜 数据 ， 并 统 . 
计 出 各 档 人 数 和 总 人 数 。 
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五 、 词 和 表 的 结合 


上 面 我 们 已 经 知道 ， 表 是 由 一 些 词 和 表 组 成 的 类 似 词 组 
和 和 句子 的 东西 ， 表 可 以 直接 由 一 些 命令 所 接受 。 然 而 ， 也 可 
以 用 一 些 词 和 表 组 合成 一 个 新 的 、 更 大 的 表 ， 这 就 要 用 到 另 
外 一 些 命令 。 
1 FPUT 命令 
格式 ，FPUT 词 或 表 表 
功能 ,把 第 一 个 输入 的 词 或 表 作 为 一 个 元 素 加 入 到 第 二 
个 输入 的 表 中 ， 作 为 新 的 表 中 的 第 一 个 元 素 。 
这 个 命令 带 有 两 个 输入 ， 第 二 个 输入 必须 是 一 个 表 。 
[ 例 7.803 
命令 : 
FPUT /ABC Fl1234 [INPQi- 
生成 一 个 新 的 表 ， 
[ABC 1234 [CNPQ]1 
而 这 条 命令 : 
FPUTIDOGSJ [ARE VERY INTELLIGENT] 
把 两 个 表 合 成 一 个 新 的 表 ; 
[CDOGS] ARE VERY INTELLIGENTI] 
类 似 地 ， 命 令 ; 
FPUT THE SUN AND THE MOON] 
[ARE STARS] 
则 合并 成 一 个 更 大 的 表 ， 
[CTHE SUN AND THE MOON] CARE 
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STARS]] 
产生 的 新 表 里 的 元 素 是 词 还 是 表 完 全 取决 于 它们 原来 是 
词 还 是 表 ， 这 个 问题 用 PRINT 伍 ' 令 显示 一 下 就 很 容易 明白 
的 。 
K 例 7.213 
比较 王 面 两 从 命令 ; 
PRINT FPUT 7“PLOWER CIS REDi 
和 PRINT FPUT CEFLOWER1 [CIS RED? 
它们 分 别 显示 出 新 表 的 内 容 是 ， 
FLOWER IS RED 
和 [FLOWER] 区 RED 
2.LPUT 三 僵 
格式 ; LPU 人 下 词 或 表 表 
功能 ， 把 第 一 个 输入 的 词 或 表 作为 一 个 元 素 加 入 到 第 二 
个 输入 的 表 中 ， 作 为 新 表 的 最 后 一 个 元 素 。 
这 个 命令 和 FPUT 命令 很 相似 ， 也 需要 两 个 输入 量 ， 不 
同 之 处 是 新 元 素 加 入 到 表 的 最 后 。 
[ 例 7.223 
命令 : 
PRINT LEPUT 7ZCHINA rGO _ TO] 
显示 的 内 容 是 ， 
GO TO CHINA 
而 这 个 命令 : 
PRINT LPUT' [CEONE] [CTWOD] [51 21 
生成 的 新 表 显 示 为 ， 
1 2[ONE] [CTWO 
3 SENTENCE 谷 令 
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格式 1，SENTENCE 词 1 或 表 1 词 2 或 表 2 
格式 2:，， (SENTENCE 词 1 或 表 2 词 2 或 玫 2 … 
词 n 或 表 mn ) 
功能 ， 第 一 种 格式 将 两 个 输入 的 词 或 表 组 合成 一 个 新 的 
表 。 如 果 输 入 项 是 表 ， 则 作为 新 元 素 组 合 进 新 表 时 ， 它 最 外 
度 的 方 括号 被 取消 。 第 二 种 格式 和 第 一 种 基本 上 是 相似 的 ， 
它 将 两 个 以 上 的 输入 作为 元 素 组 成 一 个 新 表 。 使 用 第 二 种 格 
式 时 前 后 必须 用 圆 括 号 括 起 来 。 
SENTENCE 命 令 的 缩写 形式 是 SE。 
[ 例 7:23] 
观察 下 面 儿 个 命令 ， 比 较 显 示 的 内 容 。 
命令 ， 
PRINT SSE [COME] “BACK 
显示 : 
COME BACK 
命令 ， 
PRINT SEE [COME] [CHERE? 


COME HERE 
命令 ， 
PRINT SE /HOME FAMIVY HOUSEI 


HOME FAMILY HOUSE 


PRINT SE CTHE] CCHOT BREAD? 
SMELLS DELICIOUSI 
显示 : 
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THE [HOT BREAD] SMELLS DELICIOUS 
命令 ， 
PRINT SE “GOOD “MORNING 
显示 : 
GOOD MORNING 
上 面 这 些 命令 缉 合 成 的 新 表 也 可 以 用 M 人 KZ 命 令 赋值 
给 变量 保存 起 来 。 
[ 例 7. 24] 
MAKE “X 60 
MAKE "YY SE :X CS A VERY 
INTERESTING NUMBER3 


PRINT :Y 
显示 ， 
60 IJ9 A VERY INTERESTING NUMBER 
而 下 列 命 令 : 
MAKE ?4S (SE 4A [5CBC D] 和 7123 ) 
PRINT :9 
显示 的 内 容 为 


A BC D E 123 
这 里 有 一 个 问题 必须 注意 ，SE 命 令 末尾 那个 圆 插 号 与 
它 前 而 的 字符 之 间 一 定 得 有 一 个 空格 。 和 否则 就 会 出 错 ， 错 误 
信息 是 : 
SE NEEDS MORE JINPUTS 


4. WORD 命令 
格式 1，WORD 词 1 词 2 
格式 2， (WORD 词 1i 油 2 … 词 ) 


功能 ， 将 若干 个 词 结合 成 一 个 新 间 。 与 SENTENCE 命 
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令 一 样 ， 第 二 种 格式 的 输入 项 在 两 个 以 上 ， 市 且 前 括 必 须 有 
圆 括号 括 赵 来 。 
[ 例 7.25] 
PRINT WORD “ABC 7ZDEF 
PRINT _ FIRST WORD 2ABC 7YDEF 
两 个 命令 ， 前 者 显示 “ABCDEF”， 后 者 显示 “《A2 。 


[ 例 7.263 
MAKE / 久 (WORD "WIN “DOW )》 
PRINT :和 
显示 为 ; 
WINDOW 


闻 样 也 需要 注意 行 末 的 圆 括号 前 必须 有 一 个 空格 。 
在 把 两 个 以 上 的 词组 合成 一 个 新 词 的 场合 “用 多 个 第 一 
种 格式 的 WORD 命 令 也 是 可 以 的 。 
[ 例 7.27] 
MAKE 人 公 WORD “W WORD IN 2DOW 
这 条 命令 也 生成 新 词 “WINDOW7 。 
代表 词 的 变量 也 能 参与 这 种 组 合 操作 。 例 如 ， 
[5 例 7Z.28] 
MAKE /人 X “MOTHER 
MAKE 2Y “LAND 
MAKE 7ZZ WORD 7 2ZT 


PRINT :2Z 
显示 的 就 是 ， 
MOTHERL 坟 ND 
5. LIST 命令 


格式 1，LIST 词 1 或 表 1 词 2 或 表 2 
3… 


格式 2， (LIST 词 1 或 表 词 2 或 表 3 ，…， 词 n 或 表 Di) 
功能 ， 把 若干 个 词 或 表 组 合成 一 个 表 。 如 果 输 入 项 是 表 
竺 ， 其 最 外 层 的 方 括号 仍旧 保留 。 
[ 例 7.29] 
PRINT ELIST 2“ABC [DEF GH9 
这 条 命令 显示 的 肉 容 为 : 
ABC [DEF GH 
这 是 因为 形成 一 个 表 fABC FFDEF GHDD 
而 命令 ， 
LIST [ABC] [DEF GH9 
则 生成 一 个 新 表 [[ABC] [DEF GH3]， 这 个 表 显 示 出 来 
就 是 : 
[ABC] CDEE GHD 
如 果 要 把 多 个 元 素 组 合成 一 个 表 ， 应 该 使 用 第 二 种 格 
式 ， 此 时 不 要 忘记 用 圆 括号 括 起 来 。 例 如 ， 
(LIST /7 AB [CCD EF] ?ZGHI ) 
(LIST [CABJ] [CC DJ CEE GH D )》 
LIST 命令 和 SENTENCE 命令 都 是 用 来 生成 一 个 新 的 
表 ， 它 们 既 相 同 又 有 区 别 。 如 果 命 令 的 输入 都 是 词 时 ， 它 们 
给 出 的 结果 是 一 样 的 ， 例 如 ， 
(SE 7WE ?ZLOVE 7 OUR “MOTHER 
*LAND ) 
和 (LIST “WE 7/ LOVE "OUR “MOTHER 
LAND ) 
然而 ， 当 命令 的 输入 中 含有 表 时 ， 给 出 的 结果 不 同 。 例 如 : 
(SE [ABC] CDE [CFG] 》 
和 (LIS 中 [ABC CDE CFG] ) 
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生成 的 新 玫 是 不 一 样 的 。 这 是 因为 前 者 生成 表 时 把 输入 中 表 
的 外 层 方 括号 略 去 ， 而 后 者 则 把 它们 保留 。 下 面 用 PRINT 命 
令 输 出 它们 各 自 的 结果 ， 
PRINT (CSE [ABC] CDE FEFEG]J7 
显示 ABC CDE FFG 
PRINT (LIST [ABC] CDE [IFG]) 
显示 [ABC] CDE CEFGD 
练习 22 
1. 写 出 一 名 命令， 将 词 “BEST” 加 到 “LAST IS 
SOMETIMES2” 后 面 , 并 显示 结果 。 
2. 写 出 一 句 命令， 将 词 “FIRST2” 加 到 “I9 SOME- 
TIMES BEST2” 前 面 ， 并 显示 结果 。 
3. 写 一 个 过 程 ， 将 由 REQUEST 命令 接受 的 一 串 字符 
按 相反 次 序 显示 在 屏幕 上 。 


去 、 共 它 词 表 命令 


1.CHAR 命 令 
格式 ，CHAR 整数 
功能 ， 求 出 以 该 整数 为 ASCII 码 的 字符 。 
例如 ， 字 符 A 的 ASCII 码 为 十 进 制 数 65， 所 以 
PR CHAR 65 
显示 人 
又 ， PR CHAR 49 
显示 1 
PR CHAR 7 
产生 一 次 铃声 。 因 为 铃声 的 ASCII 码 是 7 。 
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字符 的 ASCII 码 范围 在 0 到 255 之 间 , 因 此 当 命令 中 的 整 
数 超 出 这 个 范围 时 就 出 错 。 
[ 例 7。30] 输出 空格 
有 时 为 了 求 得 整齐 的 显示 格式 ， 我 们 希望 输出 空格 。 艾 
如 ， 要 求 显 示 一 个 表 头 ， 其 格式 为 
NO-NAME- AGE-SEX 
其 中 的 一 表示 空格 ， 实 际 显示 时 并 不 出 现 ， 这 里 仅 用 来 强调 
其 位 置 上 是 空格 。 
注意 ， 不 要 以 为 下 面 的 输出 表 的 办 法 能 显示 此 格式 ; 
PR _ [NONAME- AGE--SEX] 
事实 上 这 个 命令 显示 : 
NO-NAME-AGE-SEX 
也 就 是 说 。、PRINT 命 令 输出 表 时 ， 表 中 每 个 元 素 之 间 只 留 
出 一 个 空格 。 
正确 的 做 法 应 该 利用 CHAR 命 令 。 因 为 空格 的 ASCIH 码 
是 32， 所 以 
PR _ CHAR 32 
将 显示 一 个 空格 ， 于 是 下 面 的 TABLE 。HEAD 过 程 将 显示 
出 上 述 玫 头 。 
TO _ TABLE。HEAD 
PRINT1 “NO 
PRINT1 CHAR 32 
PRINT1 CHAR 32 
PRINT1 “NAME 
PRINT1 CHAR 32 
PRINTI1 CHAR 32 
PRINT1 7ZAGE 
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PRINT1 CHAR 32 
PRINT1 CHAR 32 
PRINTI1 “SEE 和 


END 

[ 例 7.313 

显示 ASCII 码 为 0 到 255 中 的 各 个 整数 的 字符 。 
TO 了 PASC 
MAKE ”“C 0 


REPEAT 256[PR _ CHAR :C NAKE 7C- 
:C+ 1 了 PRINT1L 327 
上 END 
2._ ASCII 命 令 
格式 ， ASCII 字符 
功能 : 给 出 字符 的 ASCII 码 
例如 ， 
PR ASCII “B 
显示 66 
3. WORDY? 命令 
格式 ，WORDY? 词 或 其 它 
功能 ;判断 输入 是 否 是 词 ， 若 是 词 则 输出 逻辑 值 TRUE 
〈 真 ) ， 否 则 输出 逻辑 值 FALSE ( 假 ) 。 
例如 ， 
PRINT WORD? “CHINA 
显示 TRUE 
PRINT WORD? [ICOUNTRY3] 
显示 FALSE 
3 NUMBERY? 命令 
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格式 ，NUMBER? 数 或 其 它 
功能 ， 判 断 输 入 是 否 是 数 ， 若 是 数 则 输出 TRUE， 否则 
输出 FALSE。 
例如 ， 
PRINT NUMBER? 123 
显示 TRUE 
PRINT NUMBER? [123] 
显示 FALSE 
4. LIST? 命令 
格式 ;LIST? 表 或 其 它 
功能 ， 判 断 输入 是 不 是 表 ， 若 是 表 则 输出 TRUE， 否 则 
输出 FALSE。 


例如 ， 

PRINT LIST? [ABCDF3 
显示 TRUE 

PRINT LIST? “ABC 
显示 FEALS9SE 

PRINT LIST? 123 
显示 FEALSE 
《 例 7.323 
下 面 的 过 程 将 输入 扩大 2 倍 


TO DOUBLE  :X 

IF NUMBER? :X THEN OUTPUT :X 娄 2 

IF WORD? :X THEN OUTPUT WORD 
2 全 又: 

IF LI9T? :X THEN OUTPUT SSE :XI:X 

END 
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5. RC? 命令 
格式 ，RC? 
功能 ， 当 键入 一 个 字符 为 RC 命 令 接受 时 ，RC? 取 值 为 
TRUE， 否 则 取 值 为 FALSE。 
这 个 命令 总 是 与 RC 命令 配合 使 用 的 ,请 看 下 面 的 例子 。 
[ 例 7 .33] 
TO_PIC 
IF RC? THEN READKEY 
FED 10 
PIC 
END 
TO READKEY 
MAKE 7“D RC 
IF :D=/R THEN RT 10 
IF :D='L THEN LT 10 
END 
键入 : 
PIC 人 
这 时 由 于 尚未 键入 其 它 字 符 为 RC 命 令 所 接受 , 所 以 RCYF 
的 值 为 EFALSE， 于 是 执行 ED10。 海 龟 一 直 向 前 移动 ， 当 从 
键盘 上 键入 一 个 字符 时 ，RC? 取 值 为 TRUE， 于 是 调用 RE- 
ADKEY 过 程 。 若 键入 的 字符 是 R， 则 海 色 右 转 10 度 ; 若是 
L， 则 左 转 10 度 ， 若是 其 它 字 符 ， 则 没 任何 动作 。 
6. THING? 命令 
格式 : THING? 数 或 词 
功能 ， 判 别 变量 是 否 已 有 确定 的 值 。 若 有 ， 则 结果 次 
TRUE， 和 否则 为 FALSE。 


*159 w 


例如 ， 
PRINT THING? / 
显示 下 ALSE 
这 是 因为 变量 X 尚 未 被 赋值 。 
又 ， 
MAKE “X 7YCHINA 
PRINT THING “7XX 
显示 TRUE。 
7. THING 命令 
格式 ，THING 变量 。 
功能 : 给 出 变量 的 值 
例如 ， 
MAKE “X 7ABC 
PRINT THING “X 
显示 ABC 
MAKE "YY [A B CI] 
PRINT_ THING “Y 
显示 A B C 
上 面 两 个 例子 表明 ,THING “X 与 ;X 具有 相同 功能 。 
但 下 面 的 例子 ， 说 明 THING 命 令 还 有 它 月 已 特有 的 功能 。 
MAKE 7 XVY “GOOD 
键入 
PRINT_ THING (WORD 7 X ”“Y) 
显示 GOOD 
这 里 WORD “X “Y 形 成 词 “XY，?XY 又 同时 可 看 作 变 
量 和 名 ， 其 中 的 内 容 为 GDOD。 
又 键入 
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PRINT_ THING (LAST [ABC XYD) 
显示 GOOD 
练习 23 
1. 写 出 一 个 过 程 ， 输 出 一 个 玫 或 词 中 的 、 任 意 指定 的 
第 工 个 元 素 。 
2. 写 出 一 个 过 程 ， 每 显示 一 个 数字 〈0 一 10) ， 就 打 
铃声 儿 次 。 例 如 ， 显 示 数 字 5 ， 就 打 铃 声 5 次 。 要 求 数字 用 


其 机 数 函 数 产生 。 
3. 键入 : 
MAKE '?“X 5 


MAKE “YY 2 
MAKE “2 LIS9T :X :Y 
MAKEE “Z2 [:X :YY] 
正面 各 条 正 命令， 将 产生 什么 结果 ? 
(1)HEF LIST? :Z THEN PR FIRST :Z ELSE 
PR LAST :2 
(2)IF NOT LI9T :Z2 THEN PR FIRST 
:Z2 LSE， PR LAST :22 
(3)IF WORD? Y THEN PR TRUE ELSE 
PR “FALSE 
(4)IFE NUMBER? ”“Y THREN FRR “TRUE 
ELSE PR “FALSE 


萎 S RUN 命 9 令 


一 个 LOGO 程 序 可 以 看 作为 一 个 表 ， 程 序 中 的 各 个 命令 
行 是 表 中 的 元 素 ， 例 如 ， 
1T61 


MAKE YX 123 


PRINT  :X 
PRINT [IA B C 
可 以 看 作为 表 ; 
[MAKE ”'“X 123 PRINT :X PRINT [A B 
C] ] 


如 果 能 让 计算 机 执行 这 个 表 的 话 ， 那 末 也 就 执行 表 中 的 
三 条 命令 ， 这 正 是 RUN 命 令 的 功能 。 

RUN 命令 的 格式 为 : 

RUN 命令 表 
例如 ， 

RUN [PRINT “ABC] 

显示 ABC 
这 里 命令 PRINT “ABC 是 表 LPRINT “ABC] 的 元 素 , 执 
行 RUN 命 令 就 执行 了 这 个 表 中 的 元 素 ， 即 执行 命 令 PRINT 
“ABC。 
例如 ， 


RUN (LIST “PR 666 “PR 999) 


显示 666 
999 


这 是 因为 LIST 命 令 形成 表 [PR 666 PR 999]， 于 是 RUN 
命令 就 执行 表 中 的 两 个 命令 行 。 
请 注意 ， 下面 的 RUN 命 令 使 用 方法 是 错误 的 ; 
RUN LIST [PR 111] [PR AAA] 
这 里 经 LIST 命 令 后 产生 表 [ [PR 111] [PR /AAA] ]， 于 
-是 RUN 命 令 要 执行 的 命令 行 分 别 为 [PR 111] 和 [PR 
“AAA]， 它 们 都 不 是 LCGO 语言 中 的 命令 ， 前 后 多 了 二 个 
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括号 “[ 和 ]J? 。 正 确 的 命令 是 PR 111 利 PR “AAA。 因 此 就 
产生 错误 信息 ， 
BAD JINPUT TO RUN OR REPEAT 
如 果 将 上 面 的 RUN 命 令 改 成 
RUN [PR 11 PR “AAAI] 
就 正确 了 。 因 为 RUN 要 执行 的 命令 是 PR II11 和 PR “AAA 
都 是 正确 的 命令 。 
下 面 再 举 一 些 错误 和 正确 的 例子 ， 
RUN SEE [MAKE 7 P 7 AAA] LIPRINT :P] 


是 正确 的 ， 
显示 AAA 
RUN LIST LILMAKE “PP 7AAA] FLPRINT 
:P] 是 错误 的 。 
RUN LIST “PRINT [SSS] 是 正确 的 。 
显示 “9S95S 


这 是 因为 LIST 命 令 形 成 表 [PRINT [SSS] ]， 其 中 元 素 是 : 
PRINT [SSS]， 这 是 一 个 正确 的 命令 。 
RUN LIST ”PRINT [SSS] 是 正确 的 。 
显示 “SSS。 

RUN .SE “PRINT [SSS] 是 错误 的 ， 这 是 因为 
SE 命 令 形成 表 [PRINT SSS]， 其 元 素 是 PRINT SSS， 
而 $SS 不 是 变量 、 词 或 表 ， 它 不 可 以 作 为 PRINT 命令 的 输 
入 。 因 此 显示 出 如 下 的 出 错 信 息 : 

THERE IS NO PROCEDURE NAMED SSS. 
而 命令 

RUN SE “PRINT [2"SSS] 是 正确 的 ， 

显示 SSS。 
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我 们 也 可 将 含有 命令 行为 元 素 的 表 ， 赋 给 变量 ， 然 后 对 
这 个 表 施 行 RUN 命 令 。 
[ 例 7 :34] 
MAKE 7 Y [MAKE ?ZX 123 PRINT :X 
PRINT [LIABC 1] ] 
RUN  :Y 
显示 123 
ABC 
果 将 算术 表达 式 作 为 一 个 表 中 的 元 素 ， 那 末了 UN 命 
运行 它 ， 例 如 ， 
PRINT RUN [1+2] 
显示 3。 
我 们 已 经 知道 REQUEST 命令 《缩写 为 RQ) 用 来 接 
受 键盘 输入 的 表 。 这 样 就 不 难 理解 下 面 的 例子 ， 
[ 例 7.357 
?7 MAKE 人 X RQ 
ES MAKE 4P 123 PR :P.- 
? 有 RUN :和 
显示 123 
这 里 的 ? 号 是 屏幕 上 的 指示 符 ， 图 是 执行 RQ 命令 时 屏幕 上 
的 提示 符 。 键 入 MAKE “P 123 PR :Pi 表示 将 它 
作为 一 个 表 赋 给 变量 “又 。 于 是 RUN  :X， 就 是 执行 刚才 键 
入 的 命令 ， 即 执行 MAKE “P 123 和 PR :P， 于 是 显示 
123。 
利用 REQUEST 命 令 接 受 键盘 输入 一 个 表 的 功能 和 RUN 
命令 执行 一 个 表 中 的 算术 表达 式 的 功能 ， 可 以 编制 出 下 面 的 
-过程 ， 它 能 用 来 计算 你 从 键盘 输入 的 算术 表达 式 的 植 。 
1645 


如 
令 也 能 


[ 例 7.357 
TO _ OPERATION  :A 
MAKE ?7X :人 A 
MAKE 7“EQU RQ 
RUN :FEQU 
END 
如 果 键 入 OPERATION 2-” 
则 显示 “加 
再 键入 :又 洲 :X。 
则 显示 4 
现在 ， 我 们 将 这 个 过 程 的 执行 经 过 作 一 说 明 。 
当 键 入 OPERATION 2 后 ,由 MAKE "X:A 命令 给 变 
量 “X 赋 值 2 。 执 行 MAKE “EQU RQ 命 令 时 ， 先 执行 其 中 
的 RQ 命 令 ,于 是 屏幕 上 就 显 示 提示 符 四 ,等 待 你 从 键盘 输入 
一 个 表 。 当 你 键入 算术 表达 式 :X#:X 时 ， 就 将 表 [:X 
:X] 赋 给 变量 "EQU 了 。 于 是 执行 RUN :EQU 命令 时 ， 就 执 
行 表 [:X :X] 中 的 表达 式 :X 半 :X， 显 示 出 结果 4 。 
如 果 键 入 
OPERATION 3 
B :X 米 :X 洲 :X 一 1.7/ 
则 有 显示 26 
注意 ， 键 入 算术 表达 式 时 ， 变 量 X 一 定 要 键入 为 :X， 乘 
号 和 除 号 要 用 *# 和 /表示 。 
[ 例 7.36] 
下 面 的 了 过程 用 来 简化 键入 的 绘图 命令 。 用 R 表 示 人 RT10， 
用 世 表 示 LT10， 用 FF 表示 FD10， 并 将 键入 的 绘图 命令 保留 
在 一 个 表 里 , 该 表 被 赋值 给 变量 /PICTURE。 因 此 , 洲 要 重 绘 
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刚才 绘 过 


练习 24 
1. 


。166 。 


的 图 ， 只 要 再 用 RUN 命 令 运 行 这 个 表 就 可 以 了 。 

TO _ DRAWING 

ER [R=RT 10， 工 =LT 10， 了 = FD 10， 
9=9TOP] 

MAKE “PICTURE [5] 

INPUT 

END 


TO INPUT 

MAKE “A RC 

IF :A='R THEN RT 10 MAKE 
“PICTURE 3SE :PICTURE [LRT 10] 

IE :A='L THEN LT 10 MAKE 
“PICTURE SEE :PICTURE [LILT 10] 

IF :A='F THEN ED 10 MAKE 
“PICTURE 3SE :PICTURE [FED 10] 

IE :A='S THEN REDRAW STOP 

INPUT 

END 


TO REDRAW 

PR [LWOULD YOU LIKE TO SEE YOUR 
PICTURE AGAIN? (Y/N)] 

MAKE “了 “A RC 

IE :A="Y THEN DRAW RUN :PICTURE 
END 


下 面 的 RUN 命令 的 使 用 都 是 错误 的 ,指出 错误 的 原 


独 ， 并 改正 ， 
了 RUN “PRINT “ABC 
RUN “PRINT [ABC] 
RUN WORD ?PRINT “ABC 
RUN LIST “PR 7 AAA 
TO _ MAIN 
MAKE “EQU RQ 
CAL 0 0 
END 
TO CAL :X :Y 
IF :Y>100 STOP 
MAKE “YY FUN  :X 
(PRINT :X :Y) 
CAL :X+l :Y 


END 

TO _ FUN :和 X 
OUTPUT RUN :EQU 
END 


若 键入 MAIN。 
由 :X 炒 :X 沙 :X 
将 显示 出 什么 结果 ? 


八 、 小 结 


了 工 。 词 和 表 
“167 。 


中 


(1 ) 词 ， 以 “2” 开 头 ， 中 间 不 允许 有 空格 ; 
(2 ) 表 ， 放 在 方 括号 里 。 

词 表 命 令 
(1)FIRST: 到 第 一 个 字符 或 第 一 个 元 索 ， 
(2 )LAST:， 取 末 一 个 字符 或 未 一 个 元 素 ， 
(3 )BUTEFIRST:， 删 第 一 个 字符 或 第 一 个 元 束 ; 
(4)BUTLAST; 删 未 一 个 字符 或 来 一 个 元 素 。 
(5 )REQUEST， 从 键盘 接受 表 ! 
(6 )READCEHARACTER， 从 键盘 接受 字符 ; 
(7 CLEARTEXT:， 清 除 文本 ; 
(8 )FDUT: 将 词 或 表 加 入 一 个 表 首 ; 
(9 )LPUT:， 将 词 或 表 加 入 一 个 表 尾 ; 
(10)SENTENCE:， 将 词 或 表 组 成 一 个 新 表 ; 
(11) WORD: 将 两 个 词 合 成 一 个 新 闻 ; 
(12)LIST: 将 两 个 词 或 表 合 成 一 个 新 表 ， 不 保留 方 括 : 


(13)CHAR:， 求 对 应 一 个 整数 的 ASCIH 字 符 ; 
(14)ASCII， 求 宝 符 的 ASCII 码 ; 
(15)NUMBER?， 判 别 数 ; 

(16)LIST?:， 判 别 表 ; 

(17)RC?:， 判 别 RC 命 令 是 否 已 接受 字符 ; 
(18)THING?， 判 别 变 量 是 否 赋值 ; 
(19)THING: 给 出 变量 值 

(20)RUN :执行 命令 表 或 表达 式 。 
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第 八 章 图 数 作 图 


利用 LOGO 语 言 的 命令 ， 我 们 还 可 以 让 海龟 画 出 各 种 各 
样 的 数学 s 函 数 的 曲线 来 。 其 至 还 能 做 到 ， 只 要 输入 一 个 末 数 
的 式 子 ， 程 序 就 能 自动 安排 海龟 的 动作 ， 画 出 相应 的 图 象 
来 。 我 们 在 数学 课 上 学 习 代 数 、 解 析 几 何 时 ， 或 学 习 电 学 中 
交流 电 的 波形 时 ， 可 以 把 中 华 机 的 OCO 语 言 当 作 一 个 作 图 
工具 ， 画 出 的 图 象 又 快 又 准确 。 

函数 作 图 与 以 前 介绍 的 海龟 的 屏幕 作 图 很 相似 ， 但 是 画 
函数 的 图 象 具有 数学 上 的 精确 性 。 就 象 在 数学 方 格 纸 上 描 曲 
线 一 样 ， 必 须 在 屏幕 上 建立 一 个 坐标 系 ， 坐 标 原点 就 在 屏幕 
中 央 ， 水 平方 向 是 X 轴 ， 坚 直方 向 是 Y 轴 。 横 坐标 又 的 取 值 
范围 是 - 135 一 135， 纵 坐标 Y 的 取 值 范围 是 - 120~120， 见 
图 8-1。 但 是 ， 必 须 注意 的 是 ， 这 些 坐 标 轴 并 不 在 屏幕 上 显 
示 出 来 。 

在 尝试 函数 作 图 之 前 ， 先 熟悉 几 个 
在 关 举 标的 命令 ; 

1.， 设置 横 坐 标 命令 SETX 

格式 ，SETX 坐标 估 

功能 ， 让 海龟 沿 X 轴 方向 移动 到 指 
定 的 坐标 值 处 ,而 纵 坐 标 立 则 保持 不 变 
海龟 头 部 的 朝向 也 不 变 。 

例如 ， 假 定海 龟 当 前 在 点 (10，10) 处 ， 键 入 命令 : 
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SETX 20 
海龟 就 从 点 〈10，10) 沿 X 轴 正方 向 移 到 点 〈20，10) ， 并 
在 这 两 点 之 间 天 出 一 段 直线 。 海 龟 的 头 部 仍 朝 向 原来 的 方 
向 。 
2. 设置 纵 坐 标 命令 SETY 
格式 ，SETY 坐标 值 
功能 ， 让 海龟 沿 着 立轴 的 方向 移动 到 指定 的 坐标 值 处 ， 
移动 过 程 中 横 坐 标 又 值 保 持 不 变 ， 海 龟头 部 的 朝向 也 不 变 。 
例如 ， 假 定海 龟 原来 在 点 (-10，-10) 处 ， 键 入 命 
令 : 
SETY 20 
海龟 就 从 (- 10，- 10) 移动 到 〈- 10，20) ， 并 在 移动 过 
程 中 画 下 一 段 直 线 。 海 龟 的 头 部 仍 朝 着 原来 的 方向 。 
3. 设置 坐标 命令 SETXY 
格式 ，SETXY  X 坐 标 值 ” 立 坐 标 值 
功能 : 把 海龟 从 当前 所 在 的 位 置 移 动 到 本 命令 指定 的 
《〈《X 坐 标 值 ，Y 坐 标 值 ) 的 点 上 。 
例如 ， 假 定 当 前 海龟 在 点 50，-10) 处 ， 键 入 命令 ; 
SETXY 10 5 
海龟 则 从 点 〈50，- 10) 移 到 点 〈10，5 ) 处 ， 并 在 两 点 之 
间 画 出 一 段 直 线 。 海 龟头 部 的 方向 保持 不 变 。 
4. 显示 横 坐 标 命令 XCOR 
格式 ，XCOR 
功能 :输出 海龟 所 在 位 置 的 横 坐 标 X 值 。 
例如 ， 当 前 海龟 在 点 〈10、20) 处 ， 键 入 命令 : 
XCOR 
出 显 示 出 “102”。 
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5. 显示 纵 坐 标 命 令 YCOR 
格式 ，YCOR 
功能 ， 输 出 海龟 所 在 位 置 的 纵 坐 标 Y 值 。 
例如 : 当前 海龟 在 点 (10，20) 处 ， 键 入 命令 ; 
YCOR 
则 显示 出 “202 。 
掌握 了 这 些 命令 ， 再 结合 以 前 学 过 的 一 些 命 念 ， 就 可 以 





开始 进行 函数 作 图 了 。 
[ 例 8.12 
画 出 两 条 坐标 轴 “【〈 图 8-27 
TO AXES 
DRAW 
HT 
FULLSCREEN 
SETX -100 
SETX 100 
SETX 0 
SETY 100 8-? 
SETY -100 
HOME 
END 
工 例 8. 2 一 上 上 二 二 二 二 入 伍 二 RE 
画 出 两 条 任 标 轴 ， 
并 在 上 面 各 以 十 个 海 旬 





步 长 画 上 坐标 刻度 线 〈 图 8-3)。 
TO _AXES.UNIT 
DRAW 
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五 工 


EULLSCREEN 
5ETX 一 100 
REPEAT 20CRT 90 FD 10 LT 90 FD 5 BK 
10 FD 5 
RT 90 
FD 10 
HOME 
SETY -100 
REPEAT 20 CEFED 10 RT 90 FD 5 BK 10 FD 
5 LT 90] 
ED 10 
HOME 
END 
[ 例 8.3] 


在 指定 的 坐标 处 描 出 一 个 点 。 

海 旬 在 屏幕 上 走 的 步 长 是 很 小 的 。 在 某 点 〈X，Y) 处 
描 出 一 个 点 ， 可 以 先 让 海龟 提起 画笔 ， 再 用 设 置 坐 标 命令 
SETXY 使 它 移 到 该 处 ， 然 后 再 令 海龟 把 画笔 落下 ， 向 前 走 
一 步 ， 再 后 退 一 步 。 此 时 海龟 仍 在 点 〈X，Y 立 ) 点 ， 然 而 点 
已 经 描 出 来 了 。 程 序 可 以 如 此 编写 : 

TO DOT :X :Y 

IF ANYOF :Y<-135 :Y>135 THEN 
STOP 

HT 

PU 

SETXY :X :Y 
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PD 
FD 1 
BK 1 
END 
如 果 键 入 
DOT 10 10 
就 在 坐标 〈10，10) 处 描 出 一 个 点 。 

有 了 画 一 个 点 的 程序 后 ， 再 来 着 手 画 出 函数 的 图 象 就 不 
难 了 。 只 要 给 出 一 个 函数 的 自 变 量 X 的 一 系列 的 值 ， 再 计算 
出 对 应 的 一 系列 函数 值 Y， 然 后 再 调用 例 8.3 的 过 程 DOT， 
在 该 处 描 出 一 个 个 的 点 来 。 这 样 ， 函 数 图 象 就 画 出 来 了 。 

需要 注意 的 是 ， 在 作 图 的 过 程 中 ， 不 能 让 值 和 Y 值 超 


出 图 8-1 的 坐标 范围 。 人 ~ 1 气 | 六 
划 生 
5 例 8.43 和 
本 和 介 ! 人 
画 出 y=30sin10x 的 图 象 、 ， 性 4 ? 
AL MA Wo AI 
《图 8-47) o 8-4 


TO 30SINI10X 3:X 
IF :X>100 STOP 
MAKE “YY 30#SIN 10 洒 :又 


DOT :X :Y 
30SIN10X  :X+L 
END 
如 果 键 入 ， 
30SIN10 -100 
则 画 出 图 8-4。 
[ 例 8:57 


画 出 y=x2? 的 图 象 平方 抛物 线 〈 图 8-5)。 
,173。 


由 于 X>11 或 X<- 11 时，Y 值 就 越 出 屏幕 坐标 范围 
了 了 了。 因此， 如果 描 图 时 自 变量 X 的 取 值 增 量 取 为 T 步 时 ， 从 . 
一 10 到 10 只 能 描 出 21 个 点 ， 显 然 是 过 于 稀 琉 了 ， 不 够 逼真 。 
为 此 ， 我 们 将 自 变 量 X 的 增 量 取 为 0.5 个 步 长 ,图 象 就 改善 了 
许多 。 如 果 把 增 量 值 取得 更 小 ， 辟 如 说 取 为 0.1 个 步 长 , 那 末 : 


画 的 曲线 质量 更 高 ， 看 上 去 几乎 是 连续 的 了 。 
TO XX :X 
IF :X>10 STOP 
MAKE “Y :水 :区 


DOT :X :YY 
XX 2:X+0.5 
END 
键入 过 程 名 和 输入 人 参数 ， 
XX 一 10 
就 能 画 出 图 8-5。 
[ 例 8.63 


画 出 Y = 10sin15x + 20cos5x 的 图 象 。 


下 
人 
二 
人 


图 一 一 一 一 一 mm 四 
< 


为 了 使 曲线 在 坐标 系 里 的 位 置 清楚 地 表示 出 来 ， 我 们 将 


两 条 坐标 轴 也 一 起 画 出 来 。 


TO _ MSC :X 
AXES  〈 过 程 AXES 见 例 8.1) 
SINCONS  :X 

END 


TO SINCO9 :入 
IE :X>100 STOP 


MAKE ?YY (10#SIN 15 米 :又 ) + (20 洲 COS5 


: 芭 ) 


9 于 74。 


DOT  : 久 7 
SINCOS :X+l 
SPLITSCREEN 
END 
键入 过 程 名 和 输入 参数 ， 
MC9 =-100 
就 画 出 图 8-6 的 图 象 来 。 
你 一 定 记得 ， 我 们 
在 第 七 章 学 . 习 过 RUN 
命令 和 RQ 命 令 。RUN 
命令 能 够 执行 一 个 表 里 ~、7 
的 算术 表达 式 ， 而 RQ 十 一 一 去 
命令 则 可 以 从 键盘 上 接 ” WU 
受 一 个 表 。 我 们 进一步 
可 以 利用 这 两 条 命令 ， 
编制 出 一 个 程序 来 ， 直 
接 从 键盘 上 接受 输入 的 8-6 
函数 式 ， 从 而 作出 它 的 图 象 来 。 
[ 例 8.7] 
TO _ MAIN 
MAKE 7“EQU _ RQ 
AXE9 
CAL -100 0 
END) 
TO CAL :X :Y 
IE :X>100 STOP 
MAKE “YY FUN  :X 
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DOT :X :Y (过 程 DOT 见 例 8.3》 
CAL :X+l :Y 


END 

TO EUN  :X 
OUTPUT RUN :EQU 
END 


这 里 必须 注意 的 是 ， 本 例 中 的 主 过 程 MAIN 执行 到 RQ 
命令 时 ， 你 就 可 以 从 键盘 上 输入 函数 式 了 ， 但 必须 以 函数 的 
表达 式 形 式 输入 。 例 如 ， 对 于 函数 0.2x2z- 30， 必 须 键 入 ， 

0.2 米 :又 米 :X-30 
又 如 ， 对 于 函数 15sin20x， 应 键入 ， 
15 米 SIN (20 
洲 :X) 

图 8-7 一 8-10 就 
是 几 个 实例 。 

键入 15#SIN 
20 米 :入 

键入 0.2# :X 灿 :X- 30 图 8-7 








图 8-8 
键入 20#cos (10 米 :X- 30) 
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图 8-9 
键入 (10 SIN 15# :X) -:X 





图 8-10 
如 果 我 们 希望 以 10 个 步 长 为 一 个 单位 在 坐标 轴 上 画 出 赣 
族 线 , 那 末 自 变 量 X 的 取 值 范围 只 能 是 - 13 一 13, 函 数值 Y 的 
取 值 范围 只 能 是 - 12 一 12。 然 而 ,海龟 实际 移动 却 是 按 它 的 步 
长 进行 的 ,因此 两 者 之 间 有 个 一 与 十 的 比例 .具体 来 说 ， 点 坐 
标 值 (X, Y ) 转 化 成 屏幕 上 海龟 的 位 置 是 (10# :X ,10 半 站)。 
调用 过 程 DOT 描 点 时 应 为 DOT 10#:X 10#:Y。 
[ 例 8.8] 
在 以 10 个 步 长 为 一 个 坐标 单位 的 坐标 系 里 画 出 函数 y = 
2sinxs 的 图 象 。 
TO _ MAIN :X 
AXES_ UNIT 
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29INXXX  :X 
END 
TO 29SIN XXX:X 

IF :X>10 THEN 3STOP 
MARKE 7“Y 2 灶 SIN (: 入 洲 : 入 米 : 入 ) 
DOT 10 类 :又 10 米 :了 
2 米 SINXXX :X+0.1 
END 

键入 过 程 名 及 参数 ， 
MAIN -410 

就 画 出 图 8-11 的 曲线 。 

只 要 将 例 8.7 的 过 程 作 少许 改动 ， 就 能够 实现 用 键盘 输 
入 函数 表达 式 的 方法 ， 在 以 10 步 为 一 个 单位 的 坐标 系 里 画 函 
数 曲 线 的 过 程 。 有 具体 的 修改 就 留 给 你 目 己 作 练 习 了 。 

应 该 指出 的 是 ， 并 非 所 有 的 函数 都 可 以 在 屏幕 上 画 出 来 
移 ， 能 够 画 的 只 是 很 小 的 一 部 分 。 即 使 这 一 小 部 分 也 往往 由 
于 屏幕 范围 有 限 ， 自 变量 超过 这 个 范围 是 不 允许 的 。 有 的 函 
数 其 函数 值 变化 特别 快 ， 例 如 函数 y=xs?， 沾 自 变 量 x= 5 
时，y 值 为 125 已 越 出 屏幕 范围 了 。 对 于 这 个 问题 ， 我 们 可 以 
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选择 一 个 合适 的 坐标 轴 长 度 单 位 来 解决 。 否 则 的话， 一 也 
函数 值 从 上 面 越 出 屏幕 边缘 后 ， 又 会 从 屏幕 下 面 “ 卷 绕 ” 进 
来 。 你 是 否 还 记得 ， 第 二 章 曾 提 到 过 这 种 现象 ， 如 果 忘 记 ， 
可 以 再 去 看 一 看 图 2-17。 我 们 在 例 8.3 的 过 程 DOT 中 是 这 样 
处 理 的 ， 过 程 第 2 行 设置 了 这 样 一 条 命令 : 

IER ANYOF :Y<<-135，:Y>135 THEN  STOP, 
这 样 , 一 旦 有 函数 值 从 屏幕 上 面 或 下 面 超出 屏幕 边界 值 后 ,就 
自动 地 跳 过 下 面 儿 条 命令 ， 屏 幕 上 就 不 会 产生 这 种 “ 卷 绕 ? 现 
条 了 。 另 外 ， 还 有 一 些 函 数 以 周期 比较 长 ,例如 函数 y= sinx. 
的 周期 是 360"， 如 果 以 一 个 步 长 作为 1 的话，360 "的 周期 早 
就 越 出 屏幕 的 范围 了 。 如 果 以 十 个 步 长 作为 1"， 则 情况 变 得 
更 糟 。 所 以 ， 适 当地 选择 坐标 单位 是 相当 重要 的 。 

[ 例 8.9] 画 三 叶 玫瑰 线 

画 出 极 坐 标 函 数 p = 40cos39 的 图 形 。 

我 们 知道 ， 解 析 几 何 里 把 这 个 图 形 叫 做 三 时 玫瑰 线 〈 图 ; 
8-12) 。 根 和 据 极 坐标 和 直角 坐标 的 转换 公式 


= Dc 
人 人 9 0<p<360。 
y= psing 
” X=40cos3pcos% 
本 但， | = 40cos3psin0 
图 8-12 
由 此 不 难得 到 过 程 : 


TO ROSE :F 
IF :F>360 THEN STOP 
MAKE 7X 40 业 cogs (3 水 :FE)COS:F 
MAKE /YY 40 灶 cos (3 六 :F) 关 SIN:F 
DOT :入 :Y 
ROSE :Fr+l 
ww179- ww 


END 
和 如果 键入 ， 
ROSE 0 
则 显示 图 8-12 的 三 叶 玫 瑰 线 。 

[ 例 8.105] 画 直方 图 

直方 图 是 常用 的 统计 图 表 ， 它 能 以 直观 、 明 及 的 形式 把 
一 批 数 据 中 的 不 同 成 份 生动 地 表示 出 来 。 

如 果 把 学 习 成 绩 分 成 5 个 档次 ， 0 一 59、60 一 69、70 一 
79、80 一 89、90 一 100， 每 档 成 绩 的 学 生 人 数 依 次 由 键盘 输 
入 。 下 面 这 个 过 程 就 能 画 出 学 生 人 数 的 分 档 直 方 图 。 

TO _CDNT 
HT 
SETX -100 
SETX 100 
MAKE “M -100 
REPEAT 5[MAKE 2 H RQ MAKE 7M 
:M+20 SETX :M 
MAKE /?/H (FIRST :H) #2/3 
PLOT :H :M 
MAKE 7 M :M+5] 
END 
TO _ PLOT :H :M 
REPEAT 10 [SETY :H SETX :M+2 
SETY 0 MAKE 7ZM :M+2] 
END 
其 中 ， 命 令 “MAKE “H RQ2” 将 键入 的 学 生 人 数 作为 一 个 
表 存 放 在 变量 HH 中。 命令 “FIRST :H2 又 将 这 表 中 的 元 
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素 ， 即 人 数 取出 ， 作 为 一 个 数 就 能 参加 算术 运算 了 。 乘 以 因 
子 3， 目 的 是 使 直方 图 纵向 呵 淘 缩小 ， 显 示 时 更 美观 些 。 
如 果 你 是 这 样 填 信 数据 的 话 : 
CONTa4l 
加 20./ 
图 70。 
图 40</ 
图 100-/ 
图 50./ 
则 显示 图 8-13 的 直方 图 。 
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编写 过 程 ， 分 别 画 出 下 列 三 个 图 形 ， 





(GD y=x-1 





(2) y=X3 一 2 
eTgt 


() y=0.7x2 二 3X 了 2 


了 .坐标 命令 ， 

〈 工 ) 横 坐标 命令 SETX 坐标 值 

(2 ) 纵 坐标 命令 SETY 坐标 什 

(3 ) 两 坐标 命令 SETXY 坐标 值 1 坐标 值 2 
〈4) 显 示 横 坐标 命令 XCOR 

《5 ) 显 示 维 坐标 命令 YCOR 

2. 常用 过 程 ， 

( 工 ) 画 坐标 轴 过 程 AXES 

〈2 ) 画 带 刻 度 坐 标 轴 过 程 AXES.UNIT 

〈3 ) 描 点 过 程 DOT 

《 4 ) 接 受 键盘 输入 表达 式 的 作 图 过 程 MAIN 


人 lt82。 


从 录 1 


练习 1 


(1)DRAW 


ED 
RT 
FD 
RT 
FD 
RT 
FED 
RT 


30 
90 
30 
90 
30 
90 
30 
90 


(2)DRAW 


RT 
FD 
RT 
FD 
RT 
FD 
IT 
FD 
LT 
FD 


30 
560 
120 
50- 
120 
50 
120 
50 
120 
50 


(3)DRAW 


LT 
FD 
BK 
RT 


30 
50 
50 
30 


咏 


FD 50 
BK 50 
RT 30 
FD 50 
BK 50 
END 
(4)DRAW 
FD 20 


RT 90- 


FED 20 
RT 90 


FD ?2 


RT 90 


FD 四 
RT 9 人 


FED 40 
RT 90 
ED 40 
RT 90 
FD 40 
RT 90 
ED 40 
RT 90 
(5)DRAW 
ED 如 


183.e 


RT 
ED 
RT 
ED 
了 RT 
FED 
有 人 开 
BK 


练习 2 


90 
40 
90 
40 
90 
40 
90 
50 


(1)DRA 玉 


RT 
YD 
LT 
FD 
上 
FD 
LT 
FED 
LT 


45 
40 
90 
40 
90 
40 
90 
40 
全 


《2 )DRA 雄 
SETH 60 


FD 
BK 


SETIHL 


BK 


SETH 


FD 
BK 


《3 )DRA 丈 


ED 
eo84 w 


39 


70 
50 
0 
30 
90 


10 


RT 
ED 
RT 
FD 
RT 
FED 
BK 
LT 
FD 
LT 
FD 
BK 


90 
30 
90 

30 
90 
30- 
区 
90 
50 
90 
8 

16: 


(4)DRAW 


了 了 T 
FD 
LT 
ED 
LT 
FD 
LT 
FED 
RT 
FED 
BK 
LT 
FD 
BKK 


30 
60 
120 
60 
120 
60 
150 
60 
65 
20 
20 
130: 
20 
20 


\ 写 DRAW 


ED 
RT 


20 
90， 


ED 
LT 
FED 
LT 
FD 
工 工 
ED 
RT 
FD 


80 
90 
20 
90 
40 
90 
40 
90 
40 


6)DRAW 


FD 
RT 
FD 
RT 
FED 
RT 
ED 
RT 
TD 
RT 
下 D 
RT 
FD 
及 工 
FD 
RT 
FD 
BK 
工 T 
工 D 


30 
90 
60 
90 
30 
90 
30 
45 
30 
90 
30 
90 
30 
90 


站 
届 


135 
30 
30 
90 
30 


练习 3 
(1)DRAW 
REPEAT 8(FD 20 
RT 90 FD 10 RT 
90 FD 20 
RT 90 FD 10 RT 90 
RT 45) 
(2)DRAW 
REPEAT 8(FD 50 
RT 165 FD 53 RT 
105 FD 15 RT 135) 
(3)DRAW 
REPEAT 4(REPE- 
AT 3(FD 30 RT 
120] RT 90) 
(4)DRAW 
REPEAT 20(FD 30 
BK 30.RT 19) 
(5)DRAW 
REPEAT 8(FD 40 
RT 120 FD 10 RT 
120 FD 10 RT 120 
BK 30 RT 45) 
(6)DRAW 
REPEAT 20(REPE- 
AT 4(FD 30 RT 
90)] RT 19) 
TDRAW 
REPEAT 4(RT 45 
FED 20 LT 45 


e 185 4 


REPEAT 4 (FD 30 
RT.90] RT 45 BK 
20 RT 45) 


《8)DRAW 


练习 4 


REPREAT 8(CREPE- 
AT 3GFED 30 RT 
120] RT 45) 


(1 )TO BOX 


REPEAT 4(FD 40 
RT 90) 


END 


6C27)TO TRI 


REPEAT 
RT 120] 

END 

TO TRI8 

DRAW 

REPEAT 6(TRT RT 
60) 

END 


3(FD 30 


3)TO WALL 


eeT86。 


FED 410 
LT 90 
ED 20 
RT 99 
ED 10 
RT 90 
FD .20 
LT 90 


FD 10 

END 

TO WALL3 

DRA 人 了 

RT 90 

REPEAT 3(WALLI) 
END 


(4)TO TRI 


RT 30 

REPEAT 3(FD 30 
RT 120) 

END 

TO TRI4 

DRAW 

REPEAT 4[TRI RT 
60 FD 30) 

END 


〈《5)TO SP 


练习 5 


REPEAT 2(FD 30 
RT 60 FD 30 RT 
120] 

END 

TO SP 

DRAW 

REPEAT 6(SP RT 
60) 

END 


(1)TO BOX 


REPREAT 4(FD 10 


RT 90) 
END 
TO REC 
REPEAT 2(FD 50 
RT 90 FD 15 RT 
90) 
END 
TO TRI 
REPEAT 3CFD 15 
RT 120) 
END 
TO ROCKET 
BOX 
RT 90 
FD 10 
LT 90 
有 REC 
RT 90 
FED 145 
LT .90 
BOX 
LT 90 
FD 15 
RT 90 
FED 50 
RT 30 
TRI 
END 
(2)TO TRII 
REPEAT :3(FD 10 


RT 120) 

REPEAT ,3(FD 20 
RT.120) 

REPEAT 3(FD 30 
RT 120) 

END 

TO _ TOUCH 

RT 30 

FD 20 

RT 100 

FD 5 

BK 5， 

LT 100 

BK 20 

LT 60 

-了 FD 20 

LT lo 

FD 5 

BK 5 

RT 100 

BK 20 

END 

(3)TO SP 

REPEAT 2(FD 20 
RT 60 FD 20 RT 
120) 

END 

TO SP6 

DRAW 

REPEAT 6(SP RT 


a ITI87。 


60] FD 20 


END LT 90 
TO POLY6 FD 40 
REPEAT 6(FD 40 LT 45 
RT 60) REPEAT 3(BRAN 
END CH RT 45) 
TO OPTICAL END 
SP6 练习 6 
FD 20 (1)TO POLYV :N 
RT 860 REPEAT :NEFD 30 
FD 20 RT 360/:N]) 
RT 60 END 
BK .20 TO COPOLY 
POLY6 POLY 3 
END POLY 1 
%4)TO BRANCH POLY 8 
FD 30， END 
BK 10 (2 )TO PEAR :S 
LT 30 REPEAT 2(FD :S 
FD :40 RT 60 FD :S RT 
BK 10 120) 
RT 60 END 
FD 10 TO SPEAR 
LT 30 REPEAT 4(PEAR 15 
BK 20 RT 90) 
END REPEAT 4(PEAR 30 
TO TREE RT 90) 
RT 90 END 
FD 20 (3)TO ELAG :S 
BK 40 FD 2*:S 
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REPEAT 3UFD :S 
RT 1201 
BK 29#3:3 
END 

TO _ LIN 
PU 

RT 90 
ED 40 
LT 90 
了 

END 

TO FLAGS 
FLAG 10 
LIN 开 
FLAG 20 
LIN 开 
ELAG 30 
END 


(4)TO 10 TRI 


练习 了 


REPEAT 10[(TRI RT 
36) 

END 

TO _TRI 

REPEAT 3(FD 10 
RT 120) 

END 


(1)TO ARCR :R :D 


REPEAT :D/10 (FD 
:Res0.l174 RT 10) 


卫 ND 

TO LEARE 

ARCR 30 90 

RT 90 

ARCR 30 90 

RTIT 90 

END 

TO FLOWER :N 

REPEAT :NULEA 天 
RT 360/:N] 

END 

键入 FLOW ER 6< 


(2)TO ARCR :R :D 


REPEAT :D/10CGED 
:Res'0.174 RT 10) 

END 

TO ARCL *R :D 

REPEAT *D/10 (FD 

:Re0.174 [(T 10] 

END 

TO _ FIRE 

ARCR 15 90 

ARCL 15 90 

ARCR 1415 90 

ARCL 15 90 

RT 160 

END 

TO SUN 3sN 

REPEAT  :NCFIRE 
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RT 360/:N j BK 80 


END PD 
键入 .SUN 9<- END 
13)]TO ARCR :R :D TO FAN5 
REPEAT :D/10 (FD BK 30 
:Rs#0.174 RT 10) RT 90 
END FD 40 
TO ARCL :R :D BK 80 
REPEAT :D/10 [FD FD 40 
:Rse0.174 LT 10) LT 90 
END FD 5 
TO FANi RT 90 
双 RCE 10 90 FD 40 
ARCR 10 90 BK 80 
ARCR 15 270 FD 40 
END LT 90 
TO TAN2 FD 5 
REPEAT 3 (FAN1 RT 90 
RT 216) FD 30 
END BK 60 
TO TAN3 HT 
PU END 
FD 45 TO FAN 
RT:90 PU 
PD FD 50 
ARCR 40 360 PD 
END FAN2 
TO 天 AN4 FAN3 
PU FAN4 
LT 90 FAN5 


二 二 90 6 


END 


《4)TO ARCR :R :D 


REPEAT :D/10 (FD 
Rw0.174 RT 10] 

END 

TO _ ARCL 

REPEAT :D/10 (FD 
Rs*0.174 LT 10) 

END 

TO UM 

ARCR 30 90 

LT，90 

FD 5 

BK 5 

RT,，90 

ARCR. 30 90 

RT 1480 

ARCL 10 180 

RT 180 

ARCL 10 90 

LT 90 

FD 40 

ARCR 5 180 

RT 180 

ARCL 5 180 

FD 40 

LT 90 

ARCL 10 90 

RT 1480 

ARCL 10 180 


练习 8 


练习 9 


练习 10 


2 
练习 11 


练习 12 


END 


12 

34 5 6 了 

89 
111222333 


正确 的 是 : 

MAFRE 5 2 
MAKE 7"Y;3 
MAKE 7"X *X 二 :Y 


显示 2 


真 


键入 EXltt 5 
显示 10; 
键入 EX 0 


TO CUB : 广 

OUTPUT :和 # :又 二 
:又 

END 

TO MC :X :YY 

OUTPUT CUB :X+ 
CUB :Y 

END 
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练习 13 略 
练习 14 
(1)TO SBOKX 
REPEAT 2(FD 40 
RT 90 FD 20 RT 
90) 
RT 40 
SBOX 
END 
(2)TO SBOX1 :L :S 
IF :L>6 STOP 
REPEAT 2(FED 江 
RT 90 FD :S RT 
90) 
RT 20 
SBOX :LA+5 :S+5 
END 
键入 SBOX1 10 5 
(3)TO TEL 
IE :L<10 STOP 
BOX :L 
FD 民 
RT 90 
FD 5 
LT 90 
TEL 民 一 10 
END 
TO BOX :L 
REPEAT 4(FD 了: 民 
RT 90) 


192.。 


END 
(4)TO SM :LI:N 
IF :N=0 STOP 
REPEAT 6(REPEAT 
5(FD : 荆 RT>>2]RT 
60] 
SM :L*2/3 :N 一 1 
END 
键入 SM 30 2<… 
练习 1 
1，TO TREE :L 
IF :L<10 STOP 
LT 30 
FD 了 民 
TREE :L/2 
BK 了 计 
RT 30 
FD 了:L 
TREE :L/2 
BK .:L 
RT 30 
FD 4:L 
TREE :L/2 
BK 民 
LT 30 
END 
2。 TO TREE :L :A :mm 
IF:， :D=0 STOP 
LT :A 
FD 并 


累 习 16 


签 习 17 


TREE :L:A :D 一 ! 
BK : 

RT 2*:A 

FD :LI/2 

TREE :L :A :D 一 ! 
BK  :L/2 

LT :A 

END 

键入 TREE 20 20 5<e/ 


TO SS :R :N 
IF :N=0 STOP 
RT 90 

ARCL :R 540 
RT 390 

SS :R/2 :N 一 1 
END 

TO MAIN :R :N 
RU 

BK 50 

PD 

END 

键 和 人 SS 20 4 二 


TO SHREC :HH :D 

JP :D=0 STOP 

REPEAT 2(FD :五 
LT 90FD :DLLT 

90) 

SHREC :H :D 一 1 


END 

TO PAL :L :W 

IF :W=0 STOP 

LT 30 

FD :L 

RT 120 

FED :W 

RT 60 

FED 了: 

RT 120 

FD :W 

RT 90 

PAL :L:W 一 ! 

END 

TO TIE : 工 :W 

RT 30 

SHTRI :EL 

RT 860 

FD  : 江 

LT 90 

PAL :L :W 

END 

TO SHTRI :L 

IF :L<0 STOP 

REPEAT 3(FD :L 
RT 120) 

SHTRI :L-1 

END 

TO LAMP :L :W 

TIE : 荆 :W 
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LT 90 

FED ( 江 一 :W)/2 一 5 
LT 90 

BOX 

FD 切 

LT 390 

FD (:L+:W)/6--5 
RT 120 

SHTRI :I/3 

RT 80 

FD  :L/3 

IT 90 

PAL :I/3 :W/3 
RT 90 

FD:， :W/3 

LT 120 

FD :L/3 


IT 60 


ED :W/6--5 

BOX 

RIT 90 

FED 10 

RT 90 

FD :W/2 一 5 

LT 90 

SHREC :W/3 :W 

END 

TO MSTAR1 :L :N 

REPEAT :NKCSHTRI 
3 工人 RT 60 


FD :L BR 360/:N. 
LT 60) 

END 

TO MSTAR :L :N 

MSTAR1L :L :N 

RT 绍 

MPOLY :L :N 

了 END 

TO MPOLY :L :N 

IF :L<0 STOP 

REPEAT :NUED :L 
RT 360/:N) 

MPOLY :一 0.5 :N 

END 

键入 MSTAR 10 5 

画 出 《5) 

键入 MSTAR 10 9 

画 出 〈6? 

键入 Mo9TAR1 10 9 

画 出 〈7) 

键入 MSTAR1L 10 5 

画 出 〈8) 


TO R3.12 

OUTPUT 3+RAND- 
OM 10 

END 

TO RR ; 蕊 

MAKE "YN .6 十 RAN- 
DOM 4 


REPEAT :NCED :L 
RT 360/:N] 

END 

TO RANCI 

了 T 

MAKRE "7Y (一 100 十 
RANDOM 200) 

MAKE 7"X (一 100 十 
RANDOM 200) 

MAKE 7"Z ATAN :和 
:YY 

PU 

HOME 

RT :2Z 

MAKE "D SQRT(:X 
闭 : 久 十 :了 Y*# :YY) 

FD :D 

PD 

CIRCLER 10 

了 RANCI 

END 

TO CIRCLER :R 

EPEAT 36(RT 5 
ED :R+ 3.1416/18 

RT 5 

END 

TO XX :N 

MAKE "T 0 

MAKE ，"W 3/:N 

MAKE "X :W/2 


REPEAT :NUMAKE 
7A :W-3X 六 
MAKE IT 2:T+:A 
MAKE 7"X :X 十 


:W1j] 
PRINT : 
END 
练习 19 一 21 略 
练习 22 
1 一 2. 略 
3 TO MAIN 
MAKE "X FIRST 
RQ 


OUTPUT REVERSE 
:X 

END 

TO REVERSE :X 

IF :X=" OUTPUT" 

OUTPUT “WORD 
LAST :X REVE- 
RSE BUTLAST， 
X 

END 

练习 23 
1 TO SOME :X : 

REPEAT :I-1(MA- 
KE "X BOTFIRST 
:X] 

OUTPUT FIRST :X 

END 


"上 95。 


练习 24 
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TO BELL 

MAKE "N RANDOM 
1 

REPEAT ，:N(PR 
CHAR 7) 

END 


对 


27 
64 
125 








IFEFALSE 








| IEFF 





附录 2 LOGO 命 令 表 
本 附录 以 字母 顺序 列 出 了 书 中 所 出 现 的 各 种 命令 
命令 名 称 | 幕 受 | 者 义 
ALLOF 逻辑 与 
ANYOF 逻辑 或 
ASCII 求 ASCII 码 
ASPECT 置 屏 幕 垂直 与 水 平 幅 度 的 比值 
ATAN | 求 反正 切 值 
BACK BK 后 退 
BUTFIRST | BF 删 去 表 中 第 一 个 元 素 
BUTLAST BL 删 去 表 中 最 后 一 个 元 素 
CHAR 由 ASCII 码 产生 字符 
CLEARSCREEN | CS 清除 屏幕 ， 海 龟 不 改变 位 置 和 方向 
CLEARTEXT 清除 文本 屏幕 
COS 求 余弦 值 
CONTINUE | CO 继续 执行 
DRAW 清除 屏幕 ， 海 龟 回 到 屏幕 中 央 ， 
头 部 向 上 
FIRST | 取 词 或 表 的 第 一 个 元 素 
FORWARD FD 向 前 
FPUT 将 输入 量 插入 表 中 第 一 个 位 置 
FULLSCREEN | 全 屏 作 图 方式 
HIDETURTLE HT 隐没 海龟 
IF 条 件 命令 
判别 假 
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续 上 表 








命令 名 称 | 妖 受 | 总 区 
IFTRUE IFT | 测试 真 
INTEGER 求 整 数 部 分 
LAST 求 词 或 表 的 最 后 一 个 元 索 
LEFT LT | 向 左 转 
LIST 将 若干 个 表 合 成 一 个 表 
LIST? 鉴别 是 否 是 表 
LPUT 词 或 表 加 入 到 表 中 的 最 后 位 置 
MAKE 赋值 
NOT ”逻辑 非 
NUMBER。* 鉴别 是 否 是 数 
OUTDEV 1 接 通 打印 机 
OUTPUT OP 停止 过 程 ， 输 出 结果 ， 返 回 
PAUSE 暂停 
PENDOWN PD- 落笔 
PENUP | -PU 提 笔 
QUOTIENT 求 两 数 商 的 整数 部 分 
RANDOM 求 O0~N-1 之 问 的 随机 数 
RANDOMIZE 随机 数 出 现 次 序 不 重复 
REMAINDER 求 余 数 
REPEAT 重复 执行 
RIGHT RT 向 右 转 
ROUND 四 人 铭 五 入 为 整数 
PRINT PR 显示 结果 ， 换 行 
PRINT1 显示 结果 ， 不 换行 
RC? 测试 有 否 键入 
READCHARCTERI| RC ， |】 键入 一 个 字符 
REQUEST RQ 键入 一 个 表 
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续 上 表 


命令 名称 


| 简 写 





SENTENCE | 


SETHEADING 
SETX 

SETXY 

SETY 


SHOWTURTLE 


SIN 
SPLITSCREEN 
SQRT 
STOP 
TEST 
THING 
THING? 
WORD 
WORD? 
WRAP 
XCOR 
YCOR 


SETH 


9T 








意 义 
表 人 台 并 
设置 方向 
移 到 X 坐标 处 
移 到 点 (X、Y) 
移 到 立 坐 标 处 
显示 海 多 
求 正 弦 值 


| 文本 、 作 图 混合 模式 


求 算术 平方 根 
停止 

测试 条 件 
变量 值 

测 变量 是 否 赋值 
并 词 
鉴别 是 否 为 词 
绕 屏 作 图 
输出 和 XX 坐 标 值 
输出 Y 坐 标 值 
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附录 5 


v200。 


编辑 命令 和 编辑 键 


进入 编辑 





光标 左 移 一 格 ， 不 抹 去 任何 字符 


光标 右 移 一 格 ， 不 抹 去 任何 字符 
光标 移 至 当前 行 首 

光标 移 至 第 一 行 首 

退出 编辑 方式 ， 认 可 所 有 键入 内 容 

删除 光标 处 字符 ， 光 标 在 行 末 时 ， 将 本 行 和 下 
一 行 合并 

光标 移 至 当前 行 末 

光标 移 至 最 后 一 行 末 

退出 编辑 方式 ， 放 弃 已 作 的 输入 

同 < 

删除 当前 行 光标 以 后 所 有 字符 

光标 下 移 ~ 行 

在 标 右 侧 生成 一 个 新 的 空 行 ， 光 标 位 置 不 变 

光标 上 移 一 行 . 著 在 非 编 辑 状态 下 ， 则 重 现 网 
才 输 入 的 行 

同 > 





附录 4 彩色 作 图 


如 果 你 有 一 台 彩 色 电 视 机 ， 就 可 按 中 华 机 使 用 手册 介绍 的 方法 > 
将 它 接 在 中 华 学 习 机 上 ， 画 出 各 种 彩色 图 形 。 
屏幕 的 颜色 可 分 成 背景 颜色 和 海龟 画笔 颜色 两 种 。 
设置 屏幕 背景 颜色 的 命令 是 
BACKGROUND (简写 为 BG) 
格式 ，BACKGROUND 数字 
数字 与 屏幕 颜色 之 间 的 关系 是 : 
0 黑色 
白色 
绿色 
紫色 
橙色 
蓝 色 
例如 ， 键入 : 
BG 3 
屏幕 底 色 就 成 为 紫 的 ， 以 后 画 的 图 都 以 紫色 为 背景 。 
设置 海龟 画笔 颜色 的 命令 是 
PENCOLOR (简写 为 PC) 
格式 ，PENCOLOR 数字 
数字 与 画笔 颜色 之 间 的 关系 与 上 面 数字 和 屏幕 底 色 的 关系 相同 。 
例如 ， 键 入 : 
PC 14 
画笔 的 颜色 就 成 为 栖 色 ， 以 后 画 的 图 案 都 是 栖 色 的 。 
但 要 注意 ， 不 能 在 任意 一 种 屏幕 底 色 上 使 用 任意 一 种 颜色 的 画笔 
作 图 。 璧 如 ， 当 屏幕 底 色 为 橙色 ， 海 龟 画 笔 为 紫色 时 ， 画 出 的 图 形 根 
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oO 小 中 六 一 


-本 看 不 出 来 。 其 原因 是 背景 和 画笔 的 颜色 会 相互 于 涉 的 。 赚 色 和 紫色 
于 涉 的 结果 为 栖 色 ， 它 与 底 色 相同 ， 因 此 画 出 的 图 形 就 看 不 见 了 。 但 
如 果 这 时 用 命令 改变 底 色 ， 璧 如 改 为 白色 ， 那 么 原来 没 看 到 的 紫色 图 
形 就 在 白色 的 屏幕 上 显示 出 来 了 。 下 面 的 表 给 出 了 底 色 和 笔 色相 互 干 
涉 所 产生 的 颜色 。 






































本 | 黑 | 黑 黑 
1 和 | 自 | 自 | 自 | 自 | 自 | 自 | 自 - 
2 ( 绿 ) 绿 | 绿 | 绿 | 绿 | 绿 | 绿 | 自 ， 
3( 此 | 此 | 楷 | 紫 | 楷 | 衬 | 袜 | 自 
4( 检 | 袜 | 杠 | 绿 | 绿 | 袜 | 杜 | 和 白 
5( 蓝 ) | 蓝 | 蓝 | 楷 | 楷 | 蓝 | 瘟 | 和 白 
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